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FIELD OF THE INVffWTTf>M 

This invention relates to ~tKe field of computer 
memory management, and in particular to the problem of 
5 efficiently performing computer garbage collection in 
real-time. 

N= BACKGROUND 

g Computer programs typically make use of variables or 

H similar labels to reference data "objects." A portion of 

1 10 computer memory must be allocated during execution to 
^ each such object. Over time, as many such objects are 
O created and used, the available, "free" memory that 

remains to be allocated in a particular system may begin 
pJ ^° ^ short. As is well known in the art, a variety of 

2 15 methods and techniques have been proposed and implemented 
□ to reclaim as "free" and available those portions of 

computer memory that were originally allocated to program 
objects that are no longer in use by any running program. 
This task is generally known in the art "as "garbage 

20 collection." A great variety of different garbage 

collection techniques have been developed and used; for 
example, the reference paper Uniproeessor GaT-ty;^ qij> 
Collection Techniques by Paul R. Wilson (available 
through Internet via anonymous FTP from cs.utexas.edu as 

25 pub/garbage/bigsurv.ps) provides a broad survey of 
existing techniques, and explains commonly used 



terminology. That paper is incorporated herein in its 
entirety by this reference. 

Prior art garbage collection systems have generally 
suffered to various degrees from the problem of excessive 
pause times. This problem arises when garbage collection 
is performed in real-time, i.e., concurrently with the 
execution of other live programs running on one or more 
processors. (In the field of garbage collection, the 
other live programs are typically referred to as 
"mutators," because such programs potentially "mutate" or 
change the state of memory, from the point of view of the 
garbage collector or "GC") 

For example, suppose that a system contains multiple 
mutator threads and a single GC thread. (A "thread" is 
an execution context within a shared address space, as 
discussed further below.) If the mutators are, for 
example, trying to present a movie at 30 frames per 
second, and they require a combined time of 23ms to 
generate each frame, then problems will arise if the GC 
thread is run for more than lOms during any particular 
33ms interval. It would therefore be desirable in this 
scenario to guarantee that the garbage collector will run 
no more than 30 times per second (i.e., its frequency 
will be no greater than 30; equivalently, its period will 
be greater than or equal to 33 ms) , and also that each 
time the garbage collector is run it will execute for a 
maximum duration of no more than lo ms.- 

GC frequency and duration can of course be kept 
"limited" through brute force, in the sense that the 
execution time allotted to the GC program may be 
explicitly rationed under control of the operating system 
or some other scheduling manager. This does not solve 
the problem at hand, however, because garbage collectors 
generally perform certain non-deferable, atomic work that 
must not be interrupted by mutators, at the risk of 



causing potential memory corruption. For example, a 
well-known family of GC schemes known as "copying" 
collectors (described in the Wilson survey paper, for 
example) actually copy, to a new location in memory, each 
data object that is determined not to be garbage (i.e., 
the object may still be in use by a live program) . Since 
each such data object can potentially be arbitrarily 
large, and because the copying operation is necessarily 
atomic, a copying garbage collector may enter a phase 
where it cannot be interrupted by any mutator for an 
arbitrarily long period of time. Such GC schemes are 
generally not satisfactory for real-time systems where a 
maximum GC duration is required. 

While non-copying garbage collectors also exist in 
the prior art fe.a. . Henry G. Baker Jr., The Treadmill: 
Real-Time Garbage Collection Without Motion Sickness, 
SI6PLAN Notices Vol. 27 No. 3 at pp. 66-70, March 1992, 
incorporated herein in its entirety by this reference), 
many current applications of interest — notably, in the 
realm of multimedia — require limits on the maximum 
frequency and duration of garbage collection that the 
prior art has so far failed to dependably satisfy, at 
least on general-purpose stock hardware. As a result, 
systems running multimedia applications and the like have 
so far been unable to use garbage collection, and have 
instead been forced to rely on inconvenient, manual 
storage management techniques. 

SUMMARY OF THE INVENTION 

The present invention disclosed herein provides a 
novel method and apparatus for real-time garbage 
collection that offers unprecedented low bounds on the 
worst-case for GC frequency and duration. 



Briefly, the present invention is used with a 
plurality of objects and with one or more mutators. The 
mutators, and the garbage collector itself, run on one or 
more computer processors, as scheduled by a scheduler* 
Stock hardware may be used; i.e., special purpose 
hardware is not necessary. The mutators each have a 
corresponding thread with a corresponding thread state. 
In the present invention, execution of all mutators is 
temporarily restricted at the start of each new garbage 
collection cycle. However, unrestricted and concurrent 
execution of each mutator is resumed, as soon as that 
mutator's thread state is processed by the garbage 
collector. 

In another feature of the present invention, the 
mutators are executed subject to a protective write 
barrier. However, the write barrier does not have to be 
applied to the modification of any mutator thread states, 
yielding valuable performance benefits. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 illustrates representative apparatus for 
practicing the present invention. 

Fig. 2 depicts an illustrative classification of 
program memory for purposes of the present invention. 

Fig. 3 illustrates the external pointers and the 
doubly-linked used to keep track of object "color" in a 
preferred embodiment of the invention. 

Fig. 4 shows a flow chart of garbage collection 
steps that are performed in the preferred embodiment of 
the present invention. 

Fig. 5a depicts a simple example of some objects and 
their "color" status prior to scanning. 

Fig. 5b depicts the same simple example, but after 
some scanning has been done in accordance with the 
present invention. 



Fig. 6 depicts the same simple example, but after 
further scanning has been done in accordance with the 
present invention* 

Fig. 7 illustrates the use of a write barrier. 

DETAILED DESCRIPTION OF THE PREFERRED EMBODTMENys 
Basic Concepts and Definitions 

Fig. 1 depicts a representative system that may be 
employed to embody the present invention. Garbage 
collection preferably takes place in its own execution 
thread 20 in real-time and concurrently with the 
execution of multiple mutator "threads" 22a-n and 24a-n. 
All of these various threads are run on one or more 
processors 26a-n. Where, as in the typical case, there 
are more live threads than processors. Scheduler 28 
manages processors 26a-n by allocating each processor's 
time and resources among the multiple live threads. 
Processors 26a-n preferably interact with standard 
input/output facilities 29. 

Formally, a thread is an execution context within a 
shared address space. A thread's "state" is defined by 
an associated set of local data, such as a run-time stack 
and a set of registers, or the like. Multiple threads 
preferably access other data — e.g. , global data and 
heap data — within a shared, common address space. For 
purposes of illustration, we will often discuss each 
thread in terms of its associated stack and register set, 
although it will be readily appreciated by those of skill 
in the relevant art that alternate implementations of 
threads and thread states, or the equivalent, are 
possible, and would generally be within the scope of the 
present invention. 

Figure 2 classifies program memory for purposes of 
garbage collection. The "root set" 30 contains all data 
which is directly accessible by the program: this 



includes each thread state 32a-n, as well as all global 
pointers 34 in the program's data sections. Heap 36 
contains pointers which are indirectly accessible by the 
program via the root set. Any and all other portions of 
memory 38 ( e.g. . static code segments storing machine 
instructions) are ignored by the garbage collector. 

An object's state with respect to the garbage 
collector is conceptually described by one of four 
"colors": 

1. White - These objects are currently subject to 
collection. It is as yet uncertain whether these 
objects are live (i.e., accessible to a running 
mutator program) or garbage (i.e., inaccessible). 

2. Black - These objects have been classified as live 
during the current GC cycle, and any pointers within 
these objects have also been traced. The notion of 
a GC cycle is further described below. 

3. Gray - These objects have been classified as live 
during the current GC cycle, but at least some of 
the pointers within these objects have not been 
traced yet. 

4. Green - These objects are garbage, free to be 
allocated. 

As shown in Figure 3, the color information for an 
object is redundantly represented in two ways. Firsts 
the color information is stored directly within each 
object (such as for sample object 40) in an explicit 
field (such as sample color field 42). In addition, each 
object contains link pointers (such as sample pointers 44 
and 46) that place it within a doubly linked list 
corresponding to its color. Thus, four external pointers 
— White 48^ Black 50, Gray 52, and Free (or Green) 54 — 
point to the first object in each such list. Baker's 
Treadmill (cited earlier above) similarly linked every 



object subject to garbage collection into a doubly-linked 
list reflecting its status. 

With respect to the color information stored 
directly in an object, Gray and Green may be represented 
by constant bit patterns. However, because of the "flip" 
operation performed at the start of each GC cycle, as 
described below, the meanings of the two respective bit 
patterns corresponding to Black and White alternate, and 
are determined by the values of two global variables 
( B.a. . current_black and current_white) • If the color 
bit pattern matches current^black, then the object is 
black; likewise, a match with current_white indicates 
that the object is white. 

The Garbage Collection Cycle 

Garbage collection is performed in cycles. The 
basic steps of each such cycle are charted in Figure 4. 
According to the present invention^ when a new cycle is 
commenced, all mutators are temporarily restricted from 
modifying memory by creating any new data objects. This 
is reflected in steps 60 and 62. A mutual exclusion 
("mutex") lock or similar protection mechanism may be 
readily employed to effect this purpose. The net effect 
is that as each new GC cycle begins, scheduler 28 will 
temporarily suspend the execution of any mutator that 
attempts to create a new object. Of course, the start of 
a new cycle can be delayed until a convenient moment if 
required by the mutators. 

An important aspect of the present invention is that 
the temporary restriction on mutators is extremely brief, 
as explained below. At step 64, a "flip" is performed. 
At the start of each GC cycle, every data object that is 
a candidate for potential collection starts out initially 
as Black. That is because all data objects when first 
created are initially allocated as Black, and because any 



data object that existed during the previous cycle and 
that was not labelled as Free garbage must have been 
labelled Black. Therefore, the basic purpose of flip 64 
is to relabel all of the Black objects as White (i.e., as 
current candidates for collection) . This is done simply 
by making the White list pointer point to the head of the 
previous Black list, and by re-initializing the Black 
list pointer. The meaning of the color information 
stored directly in data objects is likewise flipped, very 
simply by swapping the values of current_black and 
current_white . 

At this point, scheduler 28 preferably suspends the 
execution of all mutators completely. (In fact, for 
simplicity, execution of mutators may be temporarily 
suspended in entirety beginning at step 62.) At step 66, 
a list of all live threads is saved. Next, at step 68, 
the state information ( e.g. . the live portion of stack 
and register information) for each mutator thread is 
processed. This "processing" step may be done directly 
by performing scanning step 74 described below, or may be 
more quickly performed by simply saving each thread state 

— such as by copying that information to a "mirror" area 

— one thread at a time, for subsequent use in step 74. 
The mirror area may preferably be allocated in memory at 
thread creation time for usage by the garbage collector. 
In fact, "saving" a thread state may be performed without 
necessarily copying the thread information right away, 
but instead simply setting (under control of the 
operating system) the protection status of thread state 
as "copy-on-write." As is well known in the art, setting 
memory protection status in this way will cause actual 
copying to take place only when and as needed. 

Importantly, as represented by step 70, each mutator 
is permitted to resume executing in unrestricted fashion 
as soon as its own thread information has been processed. 



Thus, any "pause" experienced will be minimal; a mutator 
can rest assured that its unrestricted execution will be 
resumed within an inf initesimally short amount of time 
that varies only with the size of the thread state for 
that mutator. In practice, all of these initial steps 
(i.e., steps 60 through 66 and step 68 with respect to a 
given mutator) will collectively require no more than a 
handful of milliseconds, at worst. 

Thus, once thread state information has been 
processed, a mutator is essentially free to execute 
whenever it desires (from the perspective of the garbage 
collector) , until the end of the GC cycle. The remainder 
of the GC cycle — which actually, in terms of duration, 
is by far the lion's share of each cycle — is devoted to 
tracing through memory and identifying those data objects 
that are still in use and cannot be recycled. 

As shown in steps 74 and 76, this remaining portion 
of the GC cycle really proceeds in two primary phases* 
The first phase, step 74, involves scanning the root 
set's pointers: i.e., pointers stored in either the saved 
thread states or in global data. These pointers identify 
memory locations that are directly accessible by an 
executing program. Pointers stored in root set locations 
may reference objects in the heap; scanning or tracing 
the root set thus simply identifies all of the heap 
objects that may be directly referenced by a running 
program through root set pointers. For each root set 
pointer, the collector determines if the pointer points 
to an object in the heap. If so, the object's color is 
inspected; if the object was until now White, then the 
object is made Gray. An object is made Gray by removing 
it from the White list via the double link pointers, and 
prepending it to the head of the Gray list. Since all 
Gray objects ultimately turn Black by the end of a GC 
cycle, the Gray list is contiguous with the Black list. 



and the Gray list pointer points at the current head of 
the Gray list. Thus, after step 74 is completed and all 
of the root pointers have been examined, the Gray list 
will contain all data objects that are directly 
accessible via root set pointers. 

Figures 5a and 5b provide a simple example to 
illustrate the activity of scanning the root set during 
step 74. Figure 5a shows objects 1-5 as White, before 
scanning has been done. Figure 5b reflects the results 
of some scanning: objects 1, 3, and 5 are still White, 
but the scan step has determined that objects 2 and 4 are 
pointed to by the root set, and those two objects have 
therefore been made Gray. In addition, Fig. 5b shows 
that new objects, 6,7, and 8, have been created 
(presumably by concurrently executing mutators) , and have 
all been properly initialized as Black. Objects 6 and 7 
were "recycled" from Free objects 6 and 7 (Fig. 5a). In 
this example, no objects remain on the Free list for 
further recycling, although additional memory not yet 
managed by the garbage collector may exist (such as was 
used for allocating object 8) . 

Referring once again to Figure 4, the next step 76 
identifies all of the indirectly accessible objects: 
i.e., those data objects that are not pointed to directly 
by the root set, but can instead be transitively 
referenced, in that other accessible objects within the 
heap point at them. This step 76 involves iteratively 
scanning or tracing every Gray object — i.e., every 
object that is live, and that contains pointers to 
currently White objects — so as to follow all accessible 
pointers to any other objects within the heap; such 
objects when found are in turn also marked as Gray. This 
technique is continued recursively, until the entire tree 
of reachable objects is traced out and identified. 
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In more detail, scanning at step 76 proceeds from 
left to right, as indicated in Figure 5b at 80. The Gray 
object immediately to the left of the first Black object 
— - in this case, Gray object 2, to the left of Black 
object 6 — is the next Gray object to scan. Just as 
with the root set, all pointers in each Gray object must 
be examined. When every pointer within a given object 
has been traced, that object's color is changed to Black: 
i.e., it's internal color is directly changed, and the 
Black list pointer is advanced one object to the left 
using the double links. If a pointer in a Gray object 
being scanned is found to reference a White object in the 
heap, that heap object is in turn removed from the White 
list and prepended to the left-most end of the Gray list. 
Scanning the Gray list in this manner effectively 
provides a breadth- first traversal through the tree of 
all accessible objects in. the heap. 

When the Gray list pointer and the Black list 
pointer are equal, there are no more Gray objects, as 
shown in Figure 6. At this point, traversal is complete: 
all accessible, live objects have been marked Black, 
while everything else (in this case, objects 1 and 5) 
remains White, and may safely be regarded as garbage to 
be made available for recycling. In order to recycle 
these garbage objects, each object in the White list 
should have its color set to Green, assuming that a 
"conservative" collection scheme is being employed, as is 
well known in the art. Non-conservative collectors may 
omit the Green coloring. In either case, the data object 
at the head of the White list is then appended to the end 
of the Free list at step 7S, and is thereby made 
available for reuse. This completes the GC cycle. 

Note that this technique has been described in terms 
of multiple threads running on one or more processors, 
but all associated with a single address space. If 
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multiple address spaces are used in the target 
environment, then the present method may simply be 
repeatedly applied in the same way to each address space, 
as will be evident to those of skill in the art. 

Concurrently Executing the Mutators and Collector. 

Using a Write Barrier 

We have explained that after the initial work 
involved in steps 60 through 66 and part of step 68 is 
done, mutator execution may proceed concurrently with the 
remaining work of the garbage collection cycle. However, 
an additional precaution is necessary to prevent mutators 
from transferring pointer information in ways that 
inadvertently fool the garbage collector into wrongly 
characterizing an object as garbage. Briefly, the 
potential problem may be illustrated as follows. Suppose 
that the pointer to a particular White object in the heap 
is, at the start of a new GC cycle, only stored in a 
single, live object. Suppose further that sometime 
during the cycle, a mutator overwrites that pointer, but 
copies it first into another data object. Suppose 
further that this other data object — which is now the 
sole live route for accessing the White object on the 
heap — has already been fully traced and marked Black by 
the garbage collector at this point. In this scenario, a 
problem arises because the White heap object is still 
accessible and is not truly garbage, but the garbage 
collector will never find any path to it during this 
cycle, and will therefore ultimately mischaracterize it 
as garbage. This problem is well known in the art, as is 
the solution of employing a so-called "write barrier." 
For the present invention, a write barrier of the 
"snapshot-at-beginning" variety known in the art is 
preferably used, although, as explained further below, 
the manner of apolvina the write barrier in accordance 
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with the present invention is novel in certain very 
important respects. 

Basically, such a write barrier is intended to 
ensure that all objects which are live as of the instant 
a new GC cycle begins will be successfully traced and 
retained by the garbage collector. The write-barrier is 
preferably applied only to code running on a mutator 
thread. Any pointer writes into the heap or the global 
data section must go through the write barrier. The 
write barrier works by examining the pointer that is 
about to be overwritten. If the pointer which is about 
to be overwritten points at a White object in the heap, 
then that object must be made Gray. For example, as 
shown in Fig. 7, the color of object 12 is changed from 
White to gray by write barrier 15, before pointer 14 is 
overwritten. The change to Gray may be done immediately, 
or it may be done lazily by saving a copy of the pointer 
in a list and allowing the GC to examine the pointer at 
some point before the current collection is complete. If 
immediate Graying is chosen, and the invention is being 
practiced in a multi-processor environment, then it is 
further necessary to prevent different threads from 
simultaneously modifying the Gray list, in order to avoid 
possible corruption of the list. This protection may 
easily be achieved by means of a mutex lock, as will be 
evident to one of ordinary skill in the art. Write 
barrier 15 may be implemented by modifying a compiler 
applied to the mutators, so as to invoke a suitable 
routine wherever pointer overwrites are attempted. 
Alternately, calls to a routine may be manually inserted; 
a simple parser may be implemented by one of ordinary 
skill to flag potential pointer overwrites. In any case, 
write barrier 15 ensures that all objects which are live 
at the start of a collection cycle will be made Black by 
the collector sometime during that cycle. 
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Note that the write barrier preferably need not be 
used with respect to modification of the initial pointer 
values in a newly created object, since all new objects 
are preferably initialized with a special value such as 
NULL when first allocated, and NULL cannot possibly point 
at a White object in the heap. 

An important aspect of the present invention is that 
modifications of pointers stored as part of the thread 
state — i.e., in the thread stack or registers — are 
preferably not made subject to write barrier 15. This 
exception can safely be made, because the present 
invention always saves thread state information during 
the initial phase of each GC cycle, before any mutators 
can possibly alter the thread state; thus, all objects 
references from within the thread state areas will have 
been preserved. Therefore, once the mutator threads have 
been scanned during the beginning of a new collection 
cycle, they need not be examined again during that cycle, 
nor need they be made subject to write barrier 15. 

The result of applying write barrier 15 in this 
manner is dramatic. In practice, most mutator 
modification is done with respect to the thread state, as 
opposed to other data. Even more importantly, thread 
state modification typically involves fast, register-type 
access and avoids the overhead of main memory access. 
Application of the write barrier, of course, necessarily 
introduces main memory access each time, since the 
pointer being modified must be traced into the heap. 
Consequently, applying the write barrier to modification 
of thread state pointers, as has been conventional in the 
prior art, necessarily introduces severe performance 
penalties. These penalties are themselves a further 
reason why prior art garbage collection systems have been 
unable to satisfactorily service real-time multimedia 
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applications and systems. The present invention, as 
explained, is free of such prohibitive penalties. 

Source code created by the author for use in 
implementing the present invention in the C programming 
language is included below for purposes of further 
illustration of a preferred embodiment. 



mea^conf Ig.h Page 1 

Wednesday, May 18, 1994 5:27 PM 



/* Menory manageniexit configuration for the mac */ 

#ifndef jnenuconf igJi_ 
#def ine jnenuconf igJx. 

/* Basic parameters */ 

#def ine MAJe.HEAP_SEGMElTrS 500 

#def ine MA^eSTATICSEGMENTS 1 

#def ine MAX_SBCaffiWTS MAXJffiAP.SBCMEHTS + MA3CSTATIC_SEGMENTS 
/* These are \ised if we can have multiple heap segments */ 
♦define DEFAULT_FIRST_HEAP_SBGMENr_SIZE 1170000 
#def ine DEFAULT.J1EAP_SBGM^_SIZE 1 « 18 

#def ine DEFAULT_FIRST_STATIC_SBGME2aT.SIZE 350000 

♦define DEFAULT-.STATIC_SEGMENT_SIZE 0 /* only 1 static segment for now * 

/* These are used if we can only have a single heap segment */ 

♦define BASe^SYSTEHJffiMORY DEFAULTJ'IRST_HEAP_SBGMEOTLSIZE + DEFAULT_FIRST_STATIC_SEGM 
♦define SYSTEM_TO.HEAP_RATIO 0.08 

h ♦define £2nBIi5.DGALL0CATIGN 0 

p ♦define eiABLE_NOPOINrERS 1 

ij^ ♦define ENABLELSELBCTIVEL3ETF 0 

>; ♦define mhBlJ^^,^mJ.CJTJ3lJ0Btd4jOCfrs 0 

t; ♦define GCJ19GS 0 

♦define GC^DEBOGJiSGS 0 

J! ♦define GCJ^SAP 0 

O ♦define OffiCKJASH 0 

^ ♦define CHBd^SETFINIT 1 

1"^ ♦define TRACELHEH_USAGE 1 

fU ♦define MA}(jrRAC£LMEnAS 256 

^ ♦define QC.POIWrERJ^IGNMEOT 2 
O ♦define PAGE_POWER 10 
U ♦define NUKJ^ISTERS 32 
♦define THREADJilMIT 100 

♦define EEFAULTjGC.INCREMair 20 /* in milliseconds ♦/ 
♦define INTERIOIL.PT^J^ETQiri<»JiIMCT 512 

typedef SXlong tocK^type; 

♦define CPajroCKS(tr) (ICHicroSeconds(&(tr) ) ) ; 
♦define SBCXKDS^PHUTOCK lE-6 

♦define ELAPSEPJ!ILLISBCONDS{ start, delta) { tock^type end; CPULTOacS{end) ; \ 

delta = (end.lo - start. lo) / 1000.0; } 
♦define START.CODELTIMINS { tock;.type start.tocJcs; double time; CPUjroCKS(start_tocks) 
♦define ENDjCOEELJIMINGC total) ELAPSED^LLTSEgONDS ( start_t ocks , time); total = total 



EMABLEL.VISUA£<.J1EMDPY 1 

VISaAl^JfiEMORY^CN (ENABLE^VISUAI^JffiMOFy && visual jnanory.on) 
VISOAIcJIEMOByjEFAULT.ON 0 

UPDATS-VISaAIcJSTATEO { if (VISOAI^JlEMORYjON) { SXdraw.visual^c^tate ( ) ; )} 
ENABLELGC.TIMING 1 



♦define 
♦define 
♦define 
♦define 
♦define 
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aem-conf Ig.b 

Wednesday, May 18, 1994 S;27 PM 



#define EMABL^JIEALLOC.COUNT 0 

#define DETBCT_INVALIDJ?EFS 0 
#def ine TRAC:E_pCXDT_MEH_USA(S: 0 

/* oic.c and Start ScriptX.c use this... move it somevdiere else */ 
#if TRACELPOOTJffiHJUSAGE 

# define traceMen»( label) SXsnapMenK>xyTrace( ( (SXobject) label) ) 
ielse 

* define traceMem( label) 
«endif 



#endif 
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/♦ infoBits.h ♦/ 

#ifndef _in£oBitsJi- 
#def ine .infoBitsJ^ 



/* Linlcs are divided into a pointer and some low order info bits. 
We could store object group indices in the info bits 
if we wanted to for speed. */ 

/* General macros /data */ 

typedef struct gcJieader { 

struct gc^eader * prev; 

struct gc^eader * next; 
} GCJIEADER; 

typedef GCJHEADER * GCPTR; 

typedef struct gcmc3Jieader { 

struct gcjieader * prev; 

struct gcjieader * next; 

void * metadata; 
} GCMP.J1EAEER; 

typedef GCMDJiEADER * GCMDPTR; 
#def ine LINK_INF0_3ITS 4 

#define LINK;_INFX5JMASK {(1 « LINK.INFQ_BITS) - 1) 
«define LINfLJOINTEEUASK (-LINK-INFQJl^l 

#define GCTJJINiePOINrER(l) ((GCPTR) (((int) (1)) & LINK;_P0INTEFU1ASK) ) 

#define SET jUNK^dTER devalue) (SXbeerBash (1, (GCPTR) (((int) (1) & LINK;.INF0_MASK 

fdefine GET.LIN!eiNFO(l,roas}c) ((int) 1& (mas)c)) 

#define SETJLINKLINFOd, mask, bits) (SXbeerBash (1, (GCPTR) (((int) 1 & -(maslc)) I bits 



/* GC info bits 

* aivbodty defining new bits had better initialize them in rtniemrSXinitializeObject () 

* unless of course you're inplenienting the "random" object :-) 
♦/ 

#define GCJST0RAGEL1NFO.J1ASK (0x3) 
♦define QC.COIOIUINFOJIASK (0x3) 

#def ine GBr..ST0RAG5_CIASS (p) (GETJLINK^INFG (p->next , GC_ST0RAGELINFO_HASK) ) 
#define SET_STORAGELjCIASS(p,SXclass) (SBrjbINI^INFO(p->next,GC_STORAGE«DlFO^^ 

#define GET.INSTANCE..STORAGELCLASS(0) (GET.LINieiNFO( ( (GCPTR) ((char*) (o) - si2eof{G 
#define SEr_INSTANCELSTORAGEL-CLASS(o,SXclass) (SEr_MNK_INPO( ( (GCPTR) ((char*) (o) - 
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♦define GET.COLOR(p) (GETT^LINieiNFO (p->prev, GCjCOLOI^INPO_MASK) ) 

#def ine SETjCOL0R(p, color) (SET_LINK;_INFO(p->prev, GC_COL0H_INF0LMASK, color) ) 



#def ine SC^POIOTERS 
#de£ine SC.FOINTERS 
#def ine SC^METADATA 
#de£ine SC.INSTANCE 



0 
1 
2 
3 



#def ine GENERATIC»JO 0 

#de£ine GOOERATICKl 1 

*def ine GRAY 2 

♦define GREEN 3 



/* Could use GREENsGRAY, but we've got room */ 



♦define WHITE? (p) 
♦define BLACKP(p) 
♦define GRAYP(p) 
♦define GREEMP(p) 



(GETj:OLbR(p) = 

(GET_COLOR(p) = 

(GET_COL0R(p) = 

(GET_COLOR(p) = 



s xnnnarkedyjcolor) 
= markedLcolor) 
= GRAY) 
s GREEN) 



u. /* Proxy info bits */ 

p ♦define FROXY.INFQJIASK (0x4) 

2 ♦define GET_PRQXY_INFO(o) 

V ♦define SEr_PROXY_INFO{o,bit) 

i; ♦define FRO}CYP(o) 



(GET_LINK-INPO( ( (GCPTR) 
(SETJLINieiNPOC ( (GCPTR) 
(GET.PRQXY_lNFX5(o) ) 



((char *) 
((char *) 



(o) - sizeof (GC^HEADER 
(O) - sizeof (GCJiEADER 



3 

2 



#endi£ /* vdiole file */ 



P 
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#ifndef jnaruintemals^h. 
#cSe£ine ,jnen\_intemalsj:u 

#incluc3e «f_jnenL.conf igj\. 
#include ■infoBits.h" 
* 

#if (OS == WINDOWS.OS) 
#incl\K3s ■ndclocks.h" 
#endif 

/♦ Other parts of the system like to use IN_HEAP and INjGLOBALS ♦/ 
idefine EMPTY^PAGE ( (GPTR) 0) 
tdefine SYSTEM_PAGE ((GPTR) 1) 
#define STATIC.PAGE ((GPTR) 2) 
«de£ine QCTERNAI^PACS ((GPTR) 3) 

tdefine HEAP_SB01ENT 0 
#def ine STATICSEGMENT 1 

P tdefine BYTES.PEIUPAGE (1 « PAGELPCWER) 

^ #de£ine PAGELjALIGNMENT,JlASK (BYTES_PER^PAGE - 1) 

J idefine PnUT0_PA(3ELINDEX(ptr) ((int) ( ( (BPTR) ptr - f irst j>artition^tr) » PAGE_POWE 

idefine PAGELINEEXjro.PTR(page_index) (first jpart it iorxj)tr + ( (page^index) « PAGELPOW 

4^; tdefine PTIUT0_6ROOP(ptr) pages [PTR^TO_PAGE_INDEX (ptr) ] .groi5> 

tdefine IH_PARrmON(ptr) (((BPTR) ptr >= f irstj)artitionj)tr) && ((BPTR) ptr < lastj) 

Q tdefine PAGELGROUP(ptr) (IN_PARTmCN(ptr) ? PTR^TO_GR0UP(ptr) : ESCTEKNAIcPAGE) 

3 tdefine INJHEAP(ptr) ((int) PAGELGROUP(ptr) > (int) EXTERNAL^PAGE) 

M tdefine IN_STATIC(ptr) (((BPTR) ptr >= f irst_5taticj>tr) && ((BPTR) ptr < last_static_ 

nj tdefine IN.JffiAPjORj5rATlC (ptr) (DUffiAP(ptr) 1 1 INJSTATIC(ptr) ) 

tdefine IN_GIOBALS (ptr ) ( (((BPTR) ptr >= first_globalsj)tr) && ((BPTR) ptr < last^lo 
tdefine RDaND_D(]WNjrO_PAGE(ptr) ((BPTR) (((int) ptr & --PAGELALIGNMEOT_MASK) ) ) 

p tdefine ROUND.UPjroLPAGE(ptr) (ROUNDJD0WNjrO.PA(ffi(ptr) + BYTES_PEEL.PA<SE) 



typedef unsigned long * LPTR; 
typedef unsigned char * BPTR; 

extern BPTR firstjpartitionjptr; /* First heap object will always be scanned! */ 

extern BPTR lastjpartitioo-Ptr; 

extern BPTR f irst_3tatic^r; 

extern BPTR last_;staticj)tr; 

extern BPTR first_globalsj)tr; 

extern BPTR last^lobalsjjtr; 

extern BPTR first_globalsj)tr2; 

extern BPTR last^globals jptr2 ; 

tdefine MIHJ3WOTL.INDEX 4 /* yields min 16tyte objects */ 
tdefine MA3L.GR0UP_INDEX 22 /♦ yields max 4ineg objects ♦/ 
tdefine MINjGRDOTLJSIZE (1 « MIHJ3R0OTLINDEX) 

tdefine maxjsrootlsize (1 « ma^CqroopIindex) 

tdefine NUMBER^OFjGROOPS (HA^JGROOTLINEEX - HINLGROOTLINDBX + 1) 
tdefine MIN_0BJBCT.^ALI(2WENr (MIN_C5RDUP.SIZE - 1) ^ 

tdefine lNSTANCELTO_GCPTR(ptr) ( (OCPTR) ((BPTR) ptr - sizeof (GCJffiADER) ) ) 
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#define HEAP.OBJBCTjrO.GCPTR{ptr) ( (GCPTR) ((int) ptr & -MIN_OBJECT_ALIGNMENT) ) 
♦define DOUBLELALICSNMENT (sizeof (double) - 1) 

tdefine DOOBLELjALIGNED_P{p) ((int) p == (((int) p) -DOUBLE^IGNMENT) ) 
#de£ine LCNC^IGNKSir (sizeof (long) - 1) 

fdefine RDCND_UPro.LCa«3^IGNMENr(n) ( { ( ( (n) - 1)) & -LONG^ALIOMQW) + sizeof (long) ) 
/* HEY! This is a pretty sttgpid definition. Something better? 
#define METADATAP(p) (IN_GLOBALS(p) II !(isObj(p))) */ 

/* HEVl This is still pretty duinb, but better.,. */ 

tdefine CLASSP(ptr) {INJffiAP.OIUSTATIC{ptr) && (GET_INSTANCE_STORAGE_CLASS(ptr) == SC 
#def ine META£ATAP(ptr) ( ! (CIASSP(ptr) ) ) 

#if (OS == MAQJ5S) 

idefine MAYBE_PAUS1L-GC if ( (pa\xse_gc_f lag != 0) && (pause_ok-flag i= 0)) { S34)a\ise^c{ 
#elif (OS == WINDOWS.OS) 

tdefine MAYBe_PAUS^GC if ((tgtTime <= SXgetMDClockCounterO ) && (pause_oki.flag 1= 0)) 
#endif 



O 



tdefine MAyBB_SLEEP_GC if (total_allocati<»L-this_cycle == 0) SXsleep_gc{) ; 
tdefine MAyBELJWAKEN.GC if (gc^sleeping) SXawakeixjgc ( ) ; 



O tdefine MIN(x,y) ( (x < y) ? x : y) 
h tdefine MAX(x,y) ( (x > y) ? x : y) 

^ tdefine SWAP(x,y) {int tnp; tnp = x; x = y; y s tnp; } 

%| typedef struct group.info { 
P int size; 

s int index; 

ry GCPTR free; 

GCPTR free_last; 
j=i (jCPTR white; 

S GCPTR black; 

^ GCPTR gray; 

int total_object_count; 
int v4iite_count; 
int blacH^count; 
int greerucount; 
} GROOP^INFO; 

typedef GROOP^INPO ♦ GPTR; 



typedef struct segment { 

BPTR first_3egnientj>tr; 

BPTR last_seginent_ptr; 

int segment jpage_count; 

int type; 
} SB6MEOT; 



typedef struct hole { 
int page_count; 
struct hole *next; 
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} HOLE; 

typedef HOLE * HOLELPTR; 

typedef struct page_info { 

GCPTR base; 

GPTR group; 

int hytes_used; 
} PAGE_INFO; 

typedef PAGELINFO * PPTR; 

typedef struct threacLinfo { 

SXobject thread; 
} THREAD.INFO; ^ 

typedef THREAD_INFO * TPTR; 

/* ANSI C lossage.,.*/ 
Li void scaiusrray_set { ) ; 
Q void scan^lobals ( ) ; 
p void flipO; 

L=, void scanjneroory_3egnient (BPTR low, BPTR high); 

]^ void scaiL-object (GCPTR ptr, int total^ize) ; 
p void pause^gc ( ) ; 
J! void awakerv^c ( ) ; 

void ♦bigjralloc{int size); 
C5 GCPTR int erior_to_gcptr (BPTR ptr) ; 

^ void SXinit_enptyj>ages(int firstj>age, int page.count, int type); 

ru 

H char ♦ SXobject_color_to_string (GCPTR color); 

^ char * SXstorage_class_to_5tring(int storage_class) ; 

P extern void SXverify_total_object.count (void) ; 

void SXverifyJieader (GCPTR ptr) ; 

void SXverify_group(GPTR group) ; 

void SXverify_all..5roi5>s (void) ; 

int S34)rint_object_info (GCPTR ptr, int i); 

void S)qprintjpage.info(int page_index); 

void SXt>rint_groi5)_info(GPTR groi^)); 

void S}%>rint,jnemozy«jsuninazy(void) ; 

SXobject SXfindParents(SXbbject address); 

void gcDefStackBase(void) ; 

void SXaddKar)cRegion(int kind, void ♦from, void *to); 
void SXaddMarkRegion2(int )cind, void *frcni, void ♦to); 
void SXinit_globalJbo\inds (void) ; 
void GlQbalsMar}cRegion(void) ; 
SXint SXreal^isobj (void ♦ptr); 

SXint S3CallocationTrueSi2e(void ♦ metadata, SXint size); 
SXint SXtrueSi2e(void ♦ptr); 
void SXawakerugc (void) ; 
void SXpause_gc(void) ; 
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void SXsle€p_gc(void) ; 
void SXrestart_gc(void) ; 

void SXinitJieap(int defaultjieap_fcytes, int static.size, BPTR f irst_partitionj)tr, BP 

void SXiiiit_realtime_gc(void) ; 

void scaojneniory^seginent (BPTR low, BPTR high) ; 

int SXinake_object_gray(GCPTR current, BPTR raw) ; 

#if TRACEJffiM_USAGE 

void SXtrace_allocate ( void *inetadata, SXint request^size, SXint xised^size); 

void SXtrace_staticAllocate(void *itietadata, SXint request.size, SXint used^size); 
*endi£ 

void inachine_specific_init_heap{void) ; 
void cleaxGCSnif£{SXobject thread); 
void * SXbigjtBlloc ( int size); 
void SXcopy_regs_to_stack(BPTR regptr); 

SXobject S»nakeMEVis\ialDebugger(SXdbject x,SXobject y^SXobject defaultWidth^SXobject d 

SXobject visible); 
int SX\jpdate_vis\ial_page ( int page^nxjmber) ; 

void SXtaaybe_update.visual_page(int pagejiuxnber, int oldJbytes^used, int newjbytes^use 

void SX\5)date_visual_static.^ge(int page^nuinber) ; 

void SXuixiate_visual_fake_ptrj)age(int page.index) ; 

void SXdraw_vis\ial_gc_state (void) ; 

void SXdraw_vis\jal_gc_stats (void) ; 

void SXvisual_r\inbar_on(void); 

void SXvis\ial.j:\jnbar.of £ (void) ; 

void SXinit_yis\ial,jnenory (void) ; 

void SXlnnousedown^ixuvisiialj«nory_window(SXin SXint height, short modifiers ); 

void S»io\iseup_in^vis\ialjiieTOry_window(SXi^^ width, SXint height, short modifiers); 

void SXrefreshjvis\jaljnenioxy_window(void); 

void SXtogglejvis\ialjneniory(void) ; 

void SXterminate_yisualjneroory(void) ; 

void out_of jiianory(char *space.jianie, int size); 

extern GROUP_INFO *groups; 
extern PAGEL.INFO *pages; 
extern THREM).INFO * threads; 



extern int next^thread; /♦ HSXl get rid of this... ♦/ 

extern SXobject gc.thread; 
extern int gc.count; 
extern int gc.increment; 
extern int vis\aaljneroory_on; 



extern SBGMEZir * segments; 
extern int total_segments; 
extern int oK_to^c_in-grow2one; 
extern int heap^kbytes; 
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extern int totalj)artitioa-pages; 

extern int memoryjutex; 

extern int gc^sleeping; 

extern int gccount; 

extern int work^todo; 

extern int unnarkecLcolor; 

extern int inarkecl.color; 

extern int enable^gc; 

extern int enable.writejDarrier; 

extern int tracing_nienL.usage; 

extern int total_allcx:ation; 

extern int total_requested_allocation; 

extern int total_requestec3Lobjects; 

extern int total«allocatioruthis.cycle; 

extern double total_vizjnenutiine_ixuincreinent; 



extern char *last_gc_state; 
M' extern double last_cyclejns; 
□ extern double last_gc_jns; 
p extern int last^increnents; 
y, extern double last_;na3;_increnient_jns; 
J5 extern double last.write_barrierjns; 



o 



extern SXbool SXstartingScriptX; 
void Si 

#endi£ 



p void set^c_pause_f lag (void) ; 
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/* Interface to the menory manager. */ 

#ifnde£ _allocate_h- 
#def ine _allocate_h_ 

#de£ine ENABLE.J^£ALTIMEL.GC 1 

/♦ Predefined Metadata ♦/ 

#define SX^inters ((void *) 0) 

#define SXnppointers ((void *) 1) 

extern void * SXwrite_barrier(int * Ihs.address, int rhs); 

extern void * SXsafe_J>ash(int * Ihs.address, int rhs); 

extern void * SXsafe_setfInit (int * lhs_address, int rhs); 

extern void * SXallocate (void ♦ metadata, SXint n\jrnber_of Jbytes) ; 
g extern void * SXstaticAllocate(void * metadata, S5Cint nuiriber_of Jbytes) ; 
^ extern void * SXreallocate(void *pointer, SXint newL.size) ; 
=p extern void SXdeallocate (void *pointer); 

extern void * ptrcpy(void ♦ pi, void ♦ p2, int nunUbytes) ; 
a extern void * ptrset{void * pi, int data, int numJbytes); 

: . 

fij extern SXobject SXgc(void); 

^ extern SXdbject S3&iienOsage ( void) ; 

□ 

extern SXobject S}&nenHighTide(void) ; 
extern SXobject SXtotalFreeHeap^ce(void) ; 
extern SXobject SXlargestFreeHea^lock(void) ; 
extern SXak^ect SXtotalFree$ystem$pace(void) ; 
extern SXdbject SXlargestFreeSystemBlock(void) ; 
extern SXobject SXset6cIncrenient{ SXdbject inc); 
extern SXobject SXfindParents( SXobject address); 

extern SXint SXforEachlnstance (SXobject class, void (* ftmc) (SXobject) ) ; 

extern void SXstart_gc(void) ; 

void SXcancel_gcj>a\ise_callback{void); 
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1=^ 



m 

sss 



void SXscaxuthread(SXobject thread) ; 
void SXset_gcj)a\ase_flag(void) ; 
extern int enable^gc; 

extern SXint SXstac)c^llocationSize(void * metadata, SXint size); 
extern SXint SXallocationTrueSize(void * metadata, SXint size); 
extern SXint SXtraeSize{void *ptr); 

extern void * SXinitializeObject (void * metadata, void *base, int total_size, int real 

extern void SXstartMenoryTracing (void) ; 

extern void SXstppMemoryTracing (void) ; 

extern void S3^rintMenioryTrace(SXobject label); 

extern void SXsnapMenioryTrace(SXobject label); 



t^, #if (CCHPILER ~ THINKC) 

^ #de£ine STACK.^AIiLOC..JiOSSAGE( size, result) move.l size, dO X 

£ neg.l dO \ 

add.l sp, do \ 

moveq.l #-4, dl \ 

and.l dl, dO \ 

move.l dO, sp \ 

move.l do, result 



#de£ine SXalloca( size, result) asm( STAC:k^^^LLOC_LOSSAGE( size, result) } 



fdefine SAVEL3TACI^_JX:)SSAGE (height) move.l sp, height 

idefine FESIORgJSTACiexoSSftGE (height) move.l height, sp 

#define SXsaveStack(heifltfit) asm{ SAVELJ5TACKUU0SSAGE (height) } 
fdefine SXrestoreStack (height) asm{ REST0RELJ5TACKJUDSSAGE (height) } 
#endi£ 

#if (CC»4PILE3l WATCOMJDOS) 
# include <malloc.h> 
idefine SXsaveStack (height) 
fdefine SXrestoreStack (height) 

fdefine SXalloca( size, result) result = alloca(size) ; 
fendif 

f if (COMPILER ~ XLC) 

fdefine SXalloca(size, result) result = (void* )alloca (size) ; 
fdefine SXsaveStack (heig^it) 
fdefine SXrestoreStack (height) 
fendif 
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/♦ Hope introcJucing a new scope doesn't change the stack height! */ 
#de£ine SXXstackAllocate (metadata, size,, base) \ 

{ int real_size = SXstackAllocationSize (metadata, size); \ 

SXalloca{ realms ize, base); \ 

base = SXinitializeObject (metadata, base, real^size, real_size) ; } 
#endif 

#define INVALID.J^DRESS OxEF 
#include _f_writebarrier_h- 
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/* Real time Storage garbage collector running on its own thread 

* History (Mdst recent first): $Log: rtgc.c, v $ 

* Revision 1.4 1994/05/19 01:26:55 wade 

* Mbntery fixes 
* 

* Revision 1.3 1994/05/06 22:00:11 tidwell 

* changes to clocks for title support 

* Revision 1.2 1994/05/05 16:47:10 sobrino 

* Fix Windows conpiler errors. 

* Revision 1.1 1994/05/05 02:57:55 wade 

* memory reorg + misc fixes 

* Revision 1.114 1994/04/28 18:09:08 Clayton 

* Beta changes made in main branch (nop setgcincrement ( ) for Windows) 
* 



^ #include 'gdefs.h" 
^ #include "oic.h" 

/* Conditionally include this *entire* file */ 
^ #if ESABL^JREMiTIMELOC 



#include _f_pneni.conf igJu 



u. 

s 

Hi #def ine THREAD^CALLBACK 

M» #include <assert.h> 

Q #include _f_nienuintemalsJu 
H #include .f.clockProtocolsJu 

#incl\ide _f_^CFixedKathJu 

♦include .f^threadSystenvJu 

tinclude •priority.h" 

♦include "metadata. h" 

/* Global GC variables follow. We do NOT want GC info containing 
heap pointers in the global data section, or the GC will 
mistake them for mutator pointers and save them! Hencei we 
malloc some structures. */ 

#if (OS == WINDCWS.OS) 

♦include •mdclocks.h- 

SXint tgtTime; /♦ Tgt time for GC pause ♦/ 

fendif 

THREAD^INPO * threads; 

i^^t gc^le^ing; 
int gc.count; 
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int next_thread; /* HEY! get rid of this... */ 

int pa\ise_gc_flag; 
int paxise_ok^flag; 

int ruA»to_coinpletion^without_pausing; 

SXobject threa<i_awaiting_conplete_gc; 

doxible total_gc_tiine_iA_cycle; 

double inax-increroent_iA_cycle; 

doxible total_yi2jienL-tiine_iA-increnient; 

doijble total_writejDarrier.tiiie.iivjcycle; 

tocH-.type start_gc_cycle_toclcs; 

tocK-type start_gc_increnient_tocks; 



int gc^done; 
int increnent.count; 
int gc.increroent; /* milliseconds ♦/ 
SXobject gc.thread; 
SXobject gc_thread^clock; 
SXobject gcthreadLcallback; 
SXobject gc_thread._condition; 
SXobject gc_clock; 
SXobject gc^callback; 

double last.cyclejns = 1; 
double last_gcjns = 0; 
int last.increments = 0; 
O double lastjaaa^incrementjns = 0; 
3 double last_writej3arrier.jns = 0; 

H char ♦last.gc^tate; 

ry 

static 

£; void r€»ove.object_f rcKL-f ree.list (GPTR grotp, GCPTR object) 

P t 

GCPTR prev, next; 

prev = GETJiINK_POINTER(object->prev) ; 
next = GETJLINF^POIOTER(object->next) ; 



if (object == grajgp->free) { 
grom>->free = next; 

> 

if (object =s group->black) { 
groiq;>->black s next; 

} 

if (object == group->free_last) { 

groui>->free_last = ((next =s NOLL) ? prev : next); 

} 

if (prev != NULL) { 

SETJJNIL.POINTER (prev->next , next ) ; 

) 
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if (next != NULL) { 

SET_LlNK.POINTER(next->prev,prev) ; 

} 

gro\5)->gre€rucoxint = group- >greeiucount - 1; 
gro\^->total_object_count = group->total_object_co\jnt - 1; 

} 

static 

void convert^f ree_to«€nptyj?ages ( int first^page, int page_count) 
{ 

int nextj>age.index = firstj)age; 

int endj>age = £irstj>age + page.count; 

HOLELPTR new; 



/* Remove objects on pages from their respective free lists */ 
while (next_page_index < encSLpage) { 

GPTR group = pages [next j)age_index] .group; 
int total j>ages = MAX(l,groi5)->size / BYTES_PER_PAGE) ; 
H int object.count = (total^jages * BYTES.PER_PAGE) / groi5)->si2e; 

O int i; 

□ GCFTR next; 

u 

4^ next = (GCPTR) PAGE_IIOEXjrO_PTR(next_page_index) ; 

£ for (i = 0; i < object_co\int; i++) { 

S| reniove«object_froitv.free_list (group, next); 

p next = (GCPTR) ( (BPTR) next ♦ group->size) ; 

} 

nextjpage.index = nextjpage.index *t- total.j>ages; 

) 



SXinit.enptyLpages(first_page, page^count, HEAPj5BGME2ir) ; 

2? 



) 



static 

void coalesce.segnient.free_jpages( segment) 
{ 

int next.j>age.index, first^page.index, lastjpage.index, contig^coxsit; 



first j>ageL.index = -1; 
contigL.count = 0; 

next_page.index s PTEjro.PAGELXNDEX(seginents [segment] .first.segn^ 
last.page.Jndex = PTIUT0.PAGELINIS3C ( segments Uegroent ] .last^egment^ 
v^le (next«pag€L.index < last.pageL.index) ( 
GPnt group = pages [next jpage.izKiex] .group; 

int total_pages = (grcfup > (GPTR) 0) ? MAX{l,group->size / BVTES_PER.PAGE) : 1 
int count^freejpage = (group != EMFTY.PAGE) && 

(pages [next._page.index] .bytes^used ~ 0); 

if (count_freej>age) { 

if ( first j)age.index == -1) ( 

f irst.page_index = next._page.index; 

> 

contig_count = contig^count totalj>ages; 
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} 

next_page_index = next_page_index + total_pages; 
if { {!count_free_page II next_page_ijidex == lastj>age_index) 
( first jpage_index !=-!)) { 

convert_f ree_to_erTpty j)ages ( first j>age_index, cont ig_count ) ; 

firstj>age_index = -1; 

contig_count = 0; 

} 

} 

} 



static 

void coalesce_all_f ree.jpages ( ) 
{ 

int segment; 



for (segment = 0; segrrvent < total^segments; segments* ) { 
/* HEY! Put a MAYBE.PAUSE here */ 
if (segments [segment] .type s= HEAP^SEGMEUT) { 
coalesce_segment_free_pages (segment) ; 

} 

} 



) 



4^ /* HEY! pass in grot?) infol */ 

^ static 

□ int S»nake_object.^ay(GCPTR current, BPTR raw) 
{ 

H GCPTR prev; 

iU GCPTR next; 

|»4 GCPTR black; 

4; GCPTR gray; 

p GPTR group s PT!OX)jaR0UP ( current ) ; 

p BPTR header = (BPTR) current + sizeof (GCJEADER) ; 

/* Only allow interior pointers to retain objects <= 1 page in size */ 
if ( (groi5>->si2e <= INTERIOIL.PTRJ^ETairiONJ-IMlT) I I 

(((int) raw) == -1) || (raw == header)) { 

prev s (3ErrjLIN!^J01NrER(ctirrent->prev) ; 

next s 6ET^3Nf^_P0IIITER(current*>next) ; 



/* Remove current from WHITE space */ 
if (current s= group->white) { 
9roijp->white = next; 

} 

if (prev != NULL) { 

SET JUM^POINrER(prev->next, next) ; 

} 

if (next !s MULL) ( 

SET_LINK.POINTER(next->prev,prev) ; 



/* Lin]c curr^t onto the end of the gray set. Ibis gives us a breadth 
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first search when scanning the gray set (not that it matters) . */ 
SETJLINI^POINTER(current->prev,NULL) ; 
gray = gro\ip->gray; 
if (gray == NULL) { 

SET^LINK-POIOTER ( ciirrent ->next , group- >black) ; 
if (grot5)->black == NULL) { 
grox3p->black = current; 
gro\jp->free.last = current; 
} else { 

SET_LINK-.POINTER( (grox5>->black) ->prev, current) ; 

} 

} else { 

SEr_LINK_POIOTER( current ->next, gray); 
SET JjINK-POINTER (gray->prev, current ) ; 

} 

SET JCOLOR (current , GRAY) ; 
group->gray = current; 

groi5)->white_count = group- >white_count - 1; 

} 

return (groi9->size) ; 

) 



/♦ Scan memozy looking for *possible* pointers */ 
void scaiunemory^segitient (BPTR low, BPTR high) 
{ 

BPTR next; 
BPTR ptr; 
GCPTR gcptr; 
int page.index; 
GPTR group; 
int len; 

len = histfi - low; 

/* if GC_P0INTEE^^^ALI<2MENr is < 4, avoid scanning potential pointers that 

extend past the end of this object */ 
high s higto - sizeof (LPTR) 1; 
next = low; 

for (next s lew; next < high; next s next ^ (3C.JOIIirEEVJUjIGNME2ir) { 
MAYB^PAUSELOC; 
ptr = ♦((BPTR *) next); 
if (lN«PARTITION(ptr)) { 

page_index = PT!LTOLPAGB_INrax(ptr) ; 
grot^ = pages [page^index] .groiqp; 
if [group > EXTERNAIcPAGE) { 

gcptr = interior.to_gcptr(ptr); /* Hap it ourselves here! */ 
if WHTTEP (gcptr) { 

SXhake_object_gray (gcptr, ptr); /* Pass in groifl? info! */ 

) 

} else { 

if (VISOAUJffiMORY.ON && (grouj) EMPTY^PAGE) ) { 
SXi9date.visual.fake^tr.^ge(page.index) ; 

} 
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first search when seaming the gray set (not that it matters) . */ 
SET_LINK_POINTER(current->prev,NULL) ; 
gray s group->gray; 
if (gray == NOLL) { 

SET-LINFLPOmrER ( current ->next , grotqp->black) ; 
if (group->black == NULL) { 
group->black = current; 
groxjp->free.last = current; 
} else { 

SET_LINK_P0INTE3l{ (groi?)->black) ->prev, current ) ; 

} 

} else { 

SETJLINK-POIOTER ( current ->next, gray); 
SBrjiINK_POINrER<gray->prev, current ) ; 

} 

SET.COLOR( current , GRUY) ; 
group->gray = current; 

gro\jp->white_count = groi5>->white_count - 1; 

) 

retum(grouc>->size) ; 

) 

/* Scan memory looking for ♦possible* pointers ♦/ 
void scaxumenoryjsegment (BPTR low, BFTR high) 
{ 

BPTR next; 
BPTR ptr; 
GCPTR gcptr; 
int page^index; 
GPTR graap: 
int len; 

len = hi^ - lew; 

/♦ if GC^POIOTH^^^ALIGNMEWT is < 4, avoid scanning potential pointers that 

extend past the end of this object */ 
high s higb - sizeof (LFTR) 1; 
next s law; 

for (next s low; next < hi^; next s next GCPOINTER^J^Ica^KENr) { 

ptr s •((BPTR ♦) next); 
if (lH-PARriTI(»i(ptr)) { 

pageL.indlex s FTIurOLPAG5.lNnBC(ptr) ; 
group = pages [page^index] .group; 
if (groi9 > ESCTERNAIc^ASB) { 

gcptr = interior_to...gqptr(ptr) ; /* Map it ourselves here! */ 
if WHITEP(gcptr) { 

SXtaake^object.^^ (gcptr, ptr); /* Pass in groi5> info! */ 

> 

} else < 

if (VISOQVLJIEMOR/.GN && (group ~ EMPnCPAGE) ) { 
SXupdate_visual.fake.j>tr.j>age(pageL.index) ; 

> 
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) 

) 

} 

} 

#include _f_ObjStoreProtcx:ol_h- 

typedef struct metadata^list { 
struct inetadata_list *next; 
MetaDataPtr metadata; 

} metadataL.list; 



void walkLjaetadata (MetaDataPtr metadata, metadata^list *seen); 

static wallotetadata,j3asictype(MetaDataBasicType *metadata, metadata.list *seen) 



char *s; 

switch (metadata->basicType) { 
case voidrype: s = "void"; break; 
g case SXcharType: s = -char'; break; 

p case SXshortTVpe: s = • short"; break; 

H case SXintTVpe: s = "inf; break; 

4* case SXfloatType: s = •float"; break; 

:£ case SXdoublelTVpe: s = "double"; break; 

SI case objType: s = ■?????????????????obj type?"; break; 

p case functiortlVpe: s = "function ptr"; break; 

default: DebuggerO; 
> 

printf ("Basic TVpe: %s\n",s); 

} 



static void walkLj!ietadata^definedtype(MetaDataDefined3Vl^ ^metadata, roetadata^list *se 

' resolvelVpeDef initicn (metadata) ; 

printf (• Defined Type %s", mBtadata->typdlame) ; 
walkLjnetadata(metadata->type, seen); 

} 



static void walkjnetadataupointer(MetaDataPointer *metadata, metadataL-list *seen) 

printf (■ Pointer to "); 

walkLjnetadata (metadata->pointerRef , seen) ; 

/* We could check that metadata matches the actiial object's nd */ 



static void walKjnetadata^vector(MetaDataVector ^metadata, metadata-list ♦seen) 
int size; 

printf (" Vector of "); 

walkLjnetadata (metadata->vectorContents, seen); 
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if { (mBtadata->metadata.t:ypeFlags) & VBCTOR^VAK^LEWGTH) { 
printfCYGW! A var length vector. . .\n») ; 

size = 0; /* (metadata->nEleroents) {base_of_enclosing_struct\ire, ptr_to_yector_ 
} else { 

size = (int) metadata->n£lenients; 

> 

} 

static void wal]oc»tadata_stinictiire_elaaent (StructxireElemmt ^element, metadata^list * 
{ 

printfC field name = %s, offset = %d element ->fieldName, elQiient->structEle 
walkLjnetadata(elenient->structElement'IVpe, seen); 

} 

static void valkLnetadata^tructure(!fetaDataStructure ♦metadata, metadata_list *seen) 
int im- 
print f { • Structure of { \n" ) ; 
for (i = 0; i < metadata->nElements; i++) { 

p walk;_inetadata_jst ruct\ire_el€ment ( & (metadata->structureContents [ i ] ) , seen) ; 

□ } 

H- printf OVnM; 

static void walkjnetadata^\anion(MetaDataltoion *metadata, metadata_list *seen) 

O ^ 

printfCYCW! A union. .An-); 

} 



static void wallcLjnetadata^custom(MetaDataCustom ^metadata, metadata^list *seen) 
{ 

printf ( * Custom metadata \n" } ; 
wal]cLPetadata(metadata->type, seen); 

} 

void walkLjnetadataCHetaDataPtr metadata, metadata^list *seen) 
{ 

metadataL.list record, niext; 
void (*f)(void *, void ♦); 
int cyclep; 

record, nejct = seen; 

record, metadata = metadata; 

next = seen; 

cycl^ = 0; 

vAiile (next !s 0) { 

if (next-^4netadata == metadata) { 

cyclep = 1; 

next s 0; 
} else { 

next = next*>next; 

} 
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} 



if (Icyclep) { 

switch (metadata- >t:ypeFlags & METAnATA^TyPE_MASK) { 

case MBTADATAJASIC.TyPE: f = (void (♦) (void void *)) walHjnetadata_basicty 
case METADATA^DETINrojrYPE: f = (void (*) (void *, void ♦)) wal]ejiietadata_def in 
case METADATA^POINTER: f = (void (♦) (void *, void ♦)) walk-jnetadataj)ointer; b 
case METADATA^VBCTOR: f = (void (*) (void void *)) wal)onetadata_vector; bre 
case METADATA^STRUCTURE: f = (void (*) (void void *)) wal}oRetadata_structur 
case METADATA^UNION: f = (void (*) (void void *)) walJcLjnetadata^union; break 
case METADATA^CUSTC^l: f = (void (*) (void void *)) walkjnetadata.custcin; 
default : Debugger ( ) ; 
} 

(♦f){(void ♦)inetadata, (void ♦) sem); 

} 

> 



static void 

iiistance.jnetadata(SXobject instance) 

fa* { 

O SXclass.o cl = ( SX<:lass_o)CLASSOF( instance); 

p SXclass^o sc; 

SXint offset = cl->allocz; 
^ SXint i; 

£ NetaDataPtr metadata; 



m 



for(i = 0; i < cl->vecSize; i-M-) { 
sc = cl->precedenceVector[i] ; 
metadata = sc*>inetadata; 
if (metadata 0) { 

printfCsc = %s, md = %x\n%sc->name, metadata); 
memory jmit ex = 0; 
wallQjnetadata (metadata, 0); 
^ memoryjaitex = 1; 

H ) 

offset -= sc->nyIVSize; 

) 

} 

static 

void scanjeiiory_3egmBnt«witloaetadata(BPTR low, BPTR high, MfetaData *nd) 
scaxunemory^egment (lew, high) ; 

) 



/* Snapshot-at-gc-start write barrier. 

This is really just a specialized version of scaixjnemory_segroent ♦/ 
void * SXwriteJbarrierCint * Ihs.address, int rhs) 
{ 

if (memoryjrutex s= 1) { 

printf CHHr! writej>arrier called from within OC!\n'); 
DebuggerO ; 

retxim((void ♦) (*lhs_address = rhs)); 
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} 

if (enablejwritejsarrier) { 
BPIR object; 
GCPTR gqpCr; 

if (ENRBLE_VISaAItJ<EMORy) START_CODe_TIMING; 
object = *{(BPTR *) lhs_address) ; 
if (IN_HEAP( object)) { 

gcptr = interior_to_scptr (object ) ; /* (GCPTR) (object - 8); */ 

if WHITEP (gcptr) { 

SXinaJce_object_gray (gcptr, (BPTR) -1); 

} 

} 

if (ENABLEL.VISUAI,_MEM0K3f) ElCLCOESLTIMING(total_writeJt)arrier_tiine_iiucycle) ; 

} 

ret\u:n( (void *) (*lhs_adclress = rhs)); 

> 

void * SXsafe_bash(int * lhs_a(Mress, int rhs) 

BPTR object; 
GCPTR gcptr; 



if (CHBa^_BASH) { 

object = *((BPTR *) lhs_address) ; 
if ((nuiEAPCobject))) { 

gcptr = interior_to_gcptr(6bject) ; 
if WHITEP (gqptr) { 

if (meniozyjnnitex ==1) ( 

printfCHEY! writejMxrier called from within GC!\n"); 
DebuggerO ; 

retuxn((void *) (*lhs_address = rhs)); 

} 

DebuggerO ; 

} 

) 

) 

retuzxi(SXhn:itej3azrier(lhs_jaddb:ess,riis) ) ; 



void * SXsafejset£Init(3nt * lhs_address, int zfas) 
{ 

BPTR object; 

if (CHBdUSETFlNrr) { 

object = *((BPTR •) lhs_address) ; 
if (object != NOLL) { 

/* if ((int) ctaject != rhs) */ 
DebuggerO; 

} 

} 

ret\im((void *) (*lhs_address = rhs)); 



Page 9 




- 36 - 



rtgc.c 

Wednesday, Juae 1, 1994 4:47 PM 



Page 10 



} 

void *ptrcpy(void *pl, void *p2, int nunutytes) 
{ 

if (enable_writejDarrier) { 

if (ENABLE.GCjnMING) START_CODE_TIMING; 
pause_ok-flag = 0; 

scanjnenory^segment (pi , ( BPTR) pl+n\airUtytes ) ; 
paiise_ok;_flag = 1; 

if 01ABLEjQC_TIMING) Q©„CODELTIMIirc(total.writeJ>arrier_tiite_iiu 

} 

matKTY(pl,p2,n\jnvJytes) ; 
ret\im(pl) ; 

} 

void *ptrset(void *pl, int data, int nxjiiLfcytes) 
{ 

if (enable_>n:ite_barrier) { 
pa\ise.oK.flag = 0; 

scaAjneniory_segrnent (pi, (BPTR)pl+nunLiytes) ; 
pause_okL.flag = 1; 

} 

memse t (pi , data , nunijyt es ) ; 
return (pi); 

} 



static 

void cocy'IhreadInfo(SXobject thread) 
{ 

if (next^thread < THREADJLIMIT) { 

threads [next^thread] • thread ^ thread; 

setNeedSniff( thread) ; 

next.thread = next^thread ^ 1; 
} else { 

/* HEY! Should alloc a bigger buffer */ 
printfCToo many Threads! \n" ) ; 
exit(l); 

} 

} 

static 

void save^threacLstateO 

{ 

next.thread = 0; 

SXforEach(SXallThreads, (SXfunction) copyThreadlnfo, NOLL); 

) 

void SXscaa-thread(SX6bject thread) 
{ 

BFTR bottom = SX^etStackBase (thread) ; 

/* Only scan threads with a real stack and skip the gc thread! */ 
if ((bottom != 0) && (thread != gc.thread)) { 
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int nunL-registers; 

BPTR top = SXgetStackTpp (thread) ; 

BPTR ptr_aligne<l.top = (BPTR) ((int) top & (GC_POINTERJ^IGNKEOT - 1) ) ; 
BPTR regptr = SXthread^registers (thread, &nunuregisters) ; 

/♦ Scan thread state atomically! 1 ! */ 
pa\ise_okL_£lag = 0; 

/* HEY! reg ptrs are aligned on 4 byte boudaries... */ 
scan jneinDry^seginent (regptr, regptr + (niaiiuregisters * 4)); 
scanjnenory_seginent (ptr_aligne(i_top, bottom) ; 
pa\ise.o]c^flag = 1; 

} 

clearGCSniff (thread) ; 

} 

static 

void scaiuthreads ( ) 
{ 

Li T^^le (next_thread > 0) { 

p next_thread = next_thread - 1; 

Q SXscanwthread ( threads [next_thread] . thread) ; 

MAYB&^PAUSELGC; 

} 

) 



static 

^ void scaxx^lobals 0 
( 

H #if ENABIfiJXPLICIT.GLOBAIdROCW 

scaiue3«>licit_global^oots ( ) ; 



#else 



tendif 
} 



scaA_jtianory_seginent (f irst^lobalsj)tr, lastjrlobalsjptr) ; 
if (first_globalsj)tr2) 

scan^jnemoxy^segment (£irst^lobalsjptr2 , last_globals j>tr2 ) ; 



static 

void scaxx^tatic^^paceO 
{ 

BPTR next, low, end; 
GCPTR gcptr; 
int size; 



next = first^jstaticjptr; 
end = last^taticj)tr; 
while (next < end) { 

size = *((int *) next); 

size = size » LINIL.INFOJ1TS; 

low = next + sizeof (GCPTR) ; 

next = low ^ size; 

gqptr = (GCPTR) (low - sizeof (GCJffiADER) ) ; 
scaxuobject (gcptr, size sizeof (GCJffiADER) ) ; 
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/* Delete mei HEY! Convert to comton scanner with scan^object 
if (GET_STORAGE_CLASS(gcptr) != SC^POINTERS) { 
scaionanoiy-seginent ( low, next ) ; 

} */ 

) 

} 



static 

void scan_root_set ( ) 

{ 

last^gc^tate = "Scan Threads*; 
UPEftTE_VISaAl4_STATE ( ) ; 
scaruthreads ( ) ; 

last_gc_state = "Scan Globals"; 
UPnA!n5JVISaALL.STATE ( ) ; 
scaiuglobals ( ) ; 

last^c_3tate = 'Scan Statics'; 
UPDATELVISUAl4_3TATE ( ) ; 
t! scaiU5tatic.space ( ) ; 

N' void, scaiuobject (GCPTR ptr, int totaX^size) 

€ { 

4? BFTR hptr, low, hig^; 

p hptr = (BFTR) ptr; 

B low s hptr sizeof (GCJiEADER) ; 

1=5, high = hptr totaXjsize; 

ryi switch (GET_STORAGBjCLASS(ptr)) { 

Li, case SCJIOPOINrERS: break; 

£ case SC_POIOTERS: 

^ scaiumeniory.seginent (low, high); 

^ break; 

^ case SCJIETAEATA: 

scan,.jneokory:_3eginent jwithujnetadata ( low, hi^, 0 ) ; 

break; 
case SCINSTANCE: 

/* instance.jiietadata( (SXbbject) low); */ 

scarujneinory,3egncDtji)«>tlxjtietadata ( low, high, 0 ) ; 

break; 
default: DebuggerO; 
) 



static 

void scazx.object.with^.groi9)(GCPTR ptr, 6PTR group) 
{ 

scan_object(ptr, group->size) ; 
SETjCOLQR (ptr, markedjcolor ) ; 
group->black = ptr; 

group->blackjcount = gro\ip->black.count -f 1; 

} 
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/* HEY! Fix this up now that it*s not continuation based... */ 
static 

void scanjgray^set { ) 
{ 

int i, scaiu-count, rescan^all^groups; 

last_gc_state * 'Scan Gray Set'; 
UPa^TELVISUAIc.STATE ( ) ; 
i = MIN_GROUP_INDEX; 
scaA.count = 0; 
do { 

v*iile (i <= M?0eGRDUP_INEE3C) { 
GFTR group = &grotips[i]; 
GCPTR current = gro\jp->black; 
/* current could be gray, black, or green */ 
if ((current NULL) && ( ! (GRAYP(current) ) ) ) { 
current s GET^INK^POINrER( current ->prev) ; 

} 

^ while (current != NULL) { 

Q MAYBB_PAUSEJSC; 

P scan^^ob j ect.wi thu_groTflp ( current , group ) ; 

H scan^count = scan^coxmt 1; 

^ current = GErr_LINIL-P01NTro(curr€nt->prev) ; 

\i i = i + 1; 

a > 

if {scaiu.co\ant > 0) { 

rescaiuall^.groqps s 1; 
i s laXUSBCXJPJINDEX; 
scaixjcount s 0; 
} else { 

rescaxuall..grovqE>s s 0; 

} 

} vAiile (rescaxuall.^oiq>s » 1); 
MAYB^.PAUS^J3C; 

} 

static 
void flipO 
{ 

int i; 
GPTR groiv>; 

GCPTR free« prev, freeL.last, black; 
double percent jused; 

MAYBELPAUSEJSC; 
last_gc_3tate = "Flip*; 

for (i = MIHJ3RCXJP_INEEX; i <s MA3U3ROaP_INMX; i++) { 
group = &groups[i]; 
grot9->gray = NOLL; 
free = group->free; 
if (free != NULL) { 
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prev = GET_LINIL.POINTER(free->prev) ; 
if (prev != NULL) { 

SCT^LIM^POINTER (prev- >next, NULL) ; /* end black set */ 

} 

SET_LINI^POINTER ( f ree->prev, NULL ) ; 
} else { 

free.last = group->free_last; 
if (free^last != NULL) { 

SEr_LINK^POINTER(free_last->next.r^ULL) ; /♦ end black set */ 

} 

groi5>->free_last = NULL; 

} 

black = groijp->black; 
if (black == NULL) { 
printf ( • YOW! \n- ) ; 

} 

groi«>->v*iite = (GREENP (black) ? NULL : black); 

gro\jp->black = group- >free; 
O grotjp->white_ccmnt = groi^->black-Comt; 

C grovp->blacH.count = 0; 

M } 

«P SWAP(inarked_color,uninarked^color) ; 

^ save.threadL3tate ( ) ; 



ru 



) 



/* We need to change garbage color new so that conservative 
14, scanning doesn't start making free objects that look white turn grayi */ 

static 

GCPTR recycle_grovi>_garbage(GPTR group) 

V { 

2 GCPTR next; 

'rf GCPTR last; 

^ int count = 0; 

last = NULL; 

next = group->vAiite; 

vAiile (next != NOLL) ( 

int page_index = PTRjro_PAG5_INEHX(n€Xt) ; 

PPTR page = &pages [page^index] ; 

int oldjbytes.used = page->bytes_used; 

page->bytes_used = page->bytesjused - groi5>->size; 

if (VXSOAIcJlEMQRyjQN) { 

SXnaaybe_xflpdate.visualj>age(page_index, olcUbytes_used,page->bytes_iised) ; 

if (GET^.STORAGejCLASS(next) == SC^INSTANCE) { 

SXobject obj = (SXobject) ((BPTR) next + 8); 

void (♦finalize) (SXobject) = (♦obj)->finalize; 

if (finalize != NULL) ( 

/* printf Cclass = %s\n", (♦(SXclass_o *) obj)->name); */ 
/* UG! We're code that does SXgeneric dispatches, v^Aiich may 
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in turn try to allocate storage. */ 
manoryjnutex = 0; 
if ((int) finalize != 1) { 

finalize (obj ) ; /* Single- inheritance speed optimization */ 
} else { 

SXfinalize(obj) ; /* Multiple- inheritance */ 

} 

/♦ SXfinalize(obj); */ 
memoryuiutex s 1; 

} 

) 

SET^COLQR (next , GREEN) ; 

if (DETE3CT_INVALIP_PEFS) menset ( (BPTR) next + 8, INVALID.JJ)DRESS, group->size 
last = next; 

next = GET_LINK.POINrER{next->next); 

coxant = coxint + 1; 

MAYBELPAUSELGC; 



/* HEY! could xinlink free obj on pages whose count is 0. Then hook ranaining 

frag free onto free list and coalesce 0 pages */ 
if (count != groTJ5>->vAiite_count) { 
^ SXverify^all^jgroups ( ) ; 
Debugger 0; 

} 

/* Append garbage to free list. Not great for a VM system, but ifs easier */ 
if (last != NULL) { 

SEr.J«IN^POINTER (last ->next, NULL) ; 

if (group->free =s NULL) ( 

group->free = groiflp->white; 

} 

if (group->black NULL) { 

group->black = groi^>white; 

} 

if (groiflp->free_last != NULL) { 

SErrjLIN!L.P01NTER( (group->f ree.last) ->next,gro\jp->white) ; 

) 

SET jilNmroiNrER ( (groiflf>->white ) ->prev, groi5)->f ree.last ) ; 
group->freeJ.ast = last; 

gron>->greeiL-OOunt = grovqp*>greeiu.count + count; 

} 

group->%diite = NULL; 
groi5>->^^te.count = 0; 
return (last); 



static 

void recycle.all^garbageO 
{ 

int i; 
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last_gc_3tate = ■Recycle Gazbage"; 
UPEATE_VISUAl4_STATE ( ) ; 

for (i = MIHJ3PD0P.INDEX; i <= MAJeGROUP.INDEX; i++) { 
recycle..jgroi9^arbage ( &groiqps [ i ] ) ; 

} 

coalesce.all_£ree_pages ( ) ; 

) 

void SXset_gc_pa\ise.f lag (void) 
{ 

pa\ise_gc_flag = 1; 

} 

void SXrestart^gc (void) 
{ 

#if (OS == MACROS) 

SXrelinquish (gc^threadLcondition) ; 
«endif 
} 

p static 

O void setGCIncrenient(int n) 

H { ^ 

^ SXlong time; 

M time. hi = 0; 

S| time^lo = n; 



g ' SXsetTime (gc_callback, fctiine); 

gc_iiicrenieiit = n; 
if (n == 0) { 

SXsetiv(gc_threacl.clock, rate, 0); 
'™ SXsetiv(gc_clock, rate, 0); 

SXsetTime (gc^threadLcallback, &tiine); 
H ) else { 

^ SXlong time; 

tixne.hi s 0; 

time.lo = 50; 

SXset iv ( gcjtrhreacLclock, rate, kFixl); 
S3Csetiv(gc.clock, rate, Ifixl); 
SXsetTime (gc^thread^callback, &time); 

) 

UPDATELYISOAIcJSTATE ( ) ; 

} 

SXobject SXset(3cIncrement(SXbbject n) 
{ 

/* This function is a nop for Windows */ 
#if (OS == >ftC_OS) 

setGCIncrement (SXintFroni(n) ) ; 

return (n) ; 
#elif (OS == WINDOWS^OS) 

ret\mi SXundef ined; 



- 43 - 



"^^•"^ Page 17 

Wednesday, June 1, i994 4:47 Pm ^/ 



#endi£ 
} 



static 

void init^cjpause.callbackO 
{ 



#if (OS == MACROS) 

int ticks_per_second; 
SXobject callback; 
SXlong tiine; 
tine. hi s 0; 

tiine.lo = 50; /* 50 means 1000/50 = 20 tines per second */ 
ticks jer^second = 1000; 

gc.threa<l.condition = S»nakeCondition (SXxmdefined) ; 

gc^clock = SXmakeClock{SXundefined, inited(ticksj)er_second) , SXundef ined) ; 
#i£def THREAD_CAIiLBACK 

gc.thread^clock = SXlmakeClockC SXundef ined, iimed(ticksj)er_second) , SXiindef ined) ; 
#endi£ 

Irc.callback = SXtoakeTineCallBack (gc.clock, falseObject, (SXfunction) SXset^cjja 

NULL, SXiforward, SXiinterrupt, 
SXstrToObj ( -GCpaxiseCB" ) ) ; 



0 

n »i£de£ THREAD.CALLBACK 

1=^. gc^threaO-callback = SXtaakeTiiteCallBack (gc.thread^clock. falseObject, 

fU (SXfunction) SXrestart^c, 

H NULL, SXiforward, SXi^stem, 

=1^ SXstrToObj CGCrestartCB-)); 

g #endif 

^ setGCIncrenent ( DEFAULT_GC_INCREMENr) ; 
SXsetiv(gc_clock, rate, kFixl); 



#i£de£ THREAD^CALLBACK 
SXsetiv(gc«threa(l.clock, rate, kFixl); 
SXsetTine(gc_threa4.callback, fitime); 
tendif 



#elif (OS == WINDOWS^OS) 

tgtTijie s SXgetMDClockCounter () .+ SXgcTicks; 
»endi£ 
} 



static 

void reset.^jpause_callback() 
{ 

#if (OS MAC.OS) 
SXlong zero; 
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zero. hi = 0; 

zero.lo = 0; 

pause_sc-flag = 0; 

SXsetTime (gc_clock, &2ero) ; 
#elif (OS ~ WIKDOWS.OS) 

tgtTime = SXgetMDClockCoxjnter () + SXgcTicks; 
#endi£ 
} 



La. 



Static 

void start_gc_increneiit ( ) 
{ 

total_yi2jnenutiine_iruincraiient = 0.0; 
if (VISUAItJffiMORY^ON) SXvis\ial_runbar_on { ) ; 
if (inenoiYJmitex ==1) { 

printf ( "Error - GC within GC!\n"); DebuggerO; 

} 

if (ENABUEL.GCjnMING) CPUjrOCKS(start^c.increment.tocks) ; 
if {ruA_to_conpletiorLwithout_pa\asing ~ 0) { 
reset_gc_pause_callback( ) ; 

} 

menoryjmitex = 1; 
patise_ok^flag = 1; 

) 

static 

^ void €ncLgc_incr€nient { ) 
{ 

memory^ynutex = 0; 
\U paxise^gc.flag = 0; 

M if (VISUAlL-MEMORy^ON) SXvis\ial.njuibar_of f { ) ; 

if (QJABLELGCjriMlNG) { 
0 double increnient_tiine; 

H EIAPSEDJIILLISBCONDS ( start_gc_increment_toclcs , increment.t ime ) ; 

increroent.time = increment^tiine - total_vizjnenL.tiiiie_in_incr€nient; 
total^c_timB_iix.cycle = total^c.tiiiie^iiucycle + incranent^tiine; 
increment.count = increment_count + 1; " 
^ naxL-increnient_iiucycle = MAX(ina3^incr€ment_izucycle,increnient_tiinB) 

if (threa<l.awaitingL_conplete^c == 0) { 
#if (OS == MACROS) 

«ifdef THI^EAQjCALLBACK 
SXloog zero; 
zero.hi s 0; 
zero.lo = 0; 

SXsetTime (gc_threadLclock, &zero) ; 
«endif 



u 



SXgateWait (gc_threacLcondition) ; 
#elif (OS == WINDOWS^OS) 
SXthreadYieldO; 

#endi£ 
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} else { 

SXobject thread = tJireacl.awaiting_coitplete^c; 
thread_awaiting_conplete^c = 0; 
SXthreadYieldTo (thread) ; 

> 

} 

void S34)ause_gc ( ) 
{ 

if (r\iiuto_conpletion_withoutjpausing ==0) { 
endu^c^incrernent ( ) ; 

/* At this point we are resuming from a thread yield */ 
start_gc_incr€nient ( ) ; 

} 

> 



/* HEY.! sleep and awaken should stop the paxise and wakeijp cloclcs from 
even going off! */ 
L4, void SXsleep^gcO 

b ^ 

p gc.sleeping = 1; 

jci jmeniory.jnutex = 0; 

^ pa\ise.oK_flag = 0; 

15 if (VISOAItJffiMORY.ON) SXvisual_xunbar_of f { ) ; 

SXthreadDeactivate (gc.thread) ; 
start^cincreinent ( ) ; 

} 

void SXawakeiugcO 

pj { 

H if (enable^c && (gc_thread != 0)) { 

gc_3le€ping = 0; 
□ SXthreadActivate (gc.thread) ; 

} 

} 



Q 



static 

void reset_gc_cycle^tats() 
{ 

total_allocatioiuthis_cycle = 0; 
total_gc_jtinie_iiL_cycle = 0.0; 
totaljwriteJbarrier_tiine_in^cycle = 0.0; 
max_increroent_iiucycle = 0.0; 
increment^count = 0; 

if (QJABLBJX:_TIMING) CPUjr0CKS(start^c_cycle_.tocks) ; 

) 



static 

void s\nnmarize«gccycle_stats ( ) 
{ 

double total_cycle_time; 
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if (eaBLRjGCJPIMINO) { 

ELAPSED_>aLLISBCCWDS (start_gc_cycle_tocks# total_cyc^^ ; 
last^qyclejns = total.cycle_tiine; 
last_gcjns = total_gc_tiine_in^cycle; 
last.increments = increinent_count; 
last_;nax.increnient.jns = majc^increment.in^cycle; 
last.writejaarrierjns = total_writeJbarrier_tiine_in_cycle; 

} 

if (VISUAI^J^EMDRY.CN) SXaravL.visuai_gc_stats ( ) ; 



Static 

void full^gcO 
{ 

reset_gc_cycle_stats ( ) ; 

gc.done = 0; 

flipO; 

scaiuroot^set ( ) ; 
scaiugray.set ( ) ; 

enable_write_barrier = 0; 
recycle.all^azbage ( ) ; 
enablejwritejjarrier = 1; 



gc.count = gc^count + 1; 

H gc^dane = 1; 

B suninari2e^c_cycle_jstats ( ) ; 

3 last_gc^tate = "Cycle Conplete"; 

M UPEATELVISUAU-STATE ( ) ; 

nJ if (rTJiuto_conpletioruwithout_patising ==1) { 
H: rTJZX.to_CGnc>letioa.withoutjpausing s 0; 

p Sa4>ause_gc(); 

1^ MAYBBjSIfiEPjSC; 



static 

void gc.loop(SX6bject bogus_arg) 
{ 

start_gc_increnient { ) ; 
vghiled) { 

fulX-gcO; 

} 

) 



/* Ron the current gc cycle to conpletion without pausing. */ 
static 

void runu5c_to_ccnplet ion (void) 
{ 

ruiuto_conpletioruwithout_pausing = 1; 
threa<l.awaiting_ccnplete_gc = SXrunninglhread; 
SXthreadCriticalUp( ) ; 

SXrestart^gcO; /* ensure that GC thread is not waiting on a condition */ 
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SXthreacIfieldTo(gc_t:hread) ; 
SXthreadCriticalDown( ) ; 

> 

SXobject SXgc(void) 
{ 

if (gc.thread != 0) { 

niA-Sc_to_conpletion( ) ; 
ruiugc_to„corqpletion{ ) ; 
return ( initied (gc_count ) ) ; 

} 

) 

void SXinit_realtiine_gc( ) 
{ 

int threacUbytes; 

gc_thread = 0; 
gc_count = 0; 
gc_sleeping = 0; 
enable^c = 0; 

r\in^to_ccHtpl€tion^without_paiising = 0; 
J:hreacl.awaiting_ccxiplete_gc = 0; 
*visuaXjneniory_on = 0; 

last_gc-3tate s ■<initial state>"; 

threadjbytes = sizeof (THREAD_INPO) * THFEADJ^IMIT; 
threads s xnalloc(threaGlJvtes) ; 

if (threads » 0) { 

out_ofjnenory(-ScriptX-,threadJbytes / 1024); 

} 

oK«to_gc_inu-grow2one = 1; 



#endif /* Canditional incltasian of file */ 

/* Use felseif and avoid internal #if stuff ♦/ 

void SXstart^^O 
{ 

#if EIC^BLELJ^E^TIMBJGX: 
enable^gc = 1; 
init«gcj)ause_callback( ) ; 

/♦Be siire to start the gc deactivated since it uses the value of gc.thread */ 
gc_thread = SXlnakeRegularThread (SXstrToObj CGarbage Collector*), 

SXfnTo<a>ject (gcloQp, 1), SXundefined, SX;_PRIORITy.GC, 
SXiMdnPreenptiJble, trueC&)ject, SXundef ined) ; 

SXawakeiugc ( ) ; 
«endif 



void SXcancel_gcj)ause_callback() 



- 48 - 



rtgc.c 

Wednesday, June 1, 1994 4:47 pm 



Page 22 



#if ENABLE_REALTIMELGC 

gc_sleeping = 0; /* Don't let allocation reactivate the GC! */ 

if (gc^thread != 0) { 

SXthreadKill (gc_thread) ; 
#if (OS == MAC.OS) 

SXcancel (gc^callback) ; 

#endif 
} 

«endi£ 
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Real time Storage allocater 

* History (Most recent first): $Log: rtalloc.c, v $ 

* Revision 1.2 1994/05/19 01:26:42 wade 

* Montery fixes 

* Revision 1.1 1994/05/05 02:57:41 wade 

* menory reorg -i- misc fixes 

* Revision 1.114 1994/04/28 18:09:08 Clayton 

* Beta changes made in main branch (nop setgcincrement ( ) for Windows) 

* $End^of.Log$ 
*/ 



5 



#include 'gdefs.h' 
#include "oic.h^ 
#include <assert.h> 
#incliide _f jnenuintemalsji^ 
♦include _f_JCFixedMathJv-. 
# include •priority.h" 
♦include "metadata. h" 



^J #pragina ignoreroot groups pages 
□ GR0UP_INPO *groups; 
PAGEL.INFO *pages; 
HOLELFTR enptyjpages; 

iU 

1^ /* HEnf! Only 1 static segment vAiile these are global! */ 

BPTR first_3taticj)tr; 
S BPTR last_staticj5tr; 



BPTR firstjpartitionjptr; 
BPTR last.partitionj)tr; 

BPTR first_globalsj>tr; 
BPTR last^l6balsj>tr; 
BPTR first_gl6bals_ptr2; 
BPTR last^lobals^tr2; 

SEGMENT *segnaents; 
int total^egments; 

int total_partition_pages; 
int roerooxyjmxtex; 

int oK_to_gc_ii\..grow2one; /* Only used by the mac */ 

int unmarked^color; 

int marked^color; 

int enable_gc; 

int enable_writej>arrier; 
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int tracixigLpnenvjusage; 

int total_allocaticai; 
int total_requesteci^allcx:ation; 
int total_requesteci.objects; 
int total_allocatioruthis_cycle; 

SXbool SXgPrintAllocationSwitch = SXfalse; 

static 

int size_to^roup_index(int size) 
{ 

int s s size; 
int index = 0; 

« • 

s = s - 1; 
while (s != 0) { 
. s = s / 2; 

index index 4- 1; 

H } 

P return (MAX (MI!l.GROOP_INDEX, index)); 

□ } 

«P static 

^ void init,.group_info() 

^fl { 

g int size, index; 

for (index = MlN_GR0OP_lNraX; index <= MAX_<a<OUP_INDBC; index = index + 1) { 



nj 

p. 

Q 



size = 1 « index; 
grox2ps [index] .size = size; 
groups [index] .index s index; 
groups [index] .free = NOLL; 
groijps [index] .free_last = NULL; 
groi9s[ index] .white = MULL; 
grotips[ index] .blade s NULL; 
grotflps [index] .gr^ = NULL; 
groups [index] .gray = NULL; 
groijps[i2Kaex] .total.object_count = 0; 
groups [index] .vdiite.count = 0; 
groins [index] .blac)<L.count = 0; 
groups [ index] .greesucount s 0; 



static 

void init j)age_in£o ( ) 
{ 

int i; 



for (i = 0; i < totalj>artitiorvj>ages; i++) { 

/* Could put the next two in a per segment table to save memory */ 
pages[i] .base = NULL; 
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pages [i] .bytes^used = 0; 
pages [i] -groi^) = SYSTEM_PAGE; 

} 

} 

void SXinit_Qtptyj)ages(int first_page, int page_coiant, int type) 
{ 

int last^page = first jpage + page_count; 
int i; 

HOUL-PTR newjiole; 

for (i s first^page; i < lastj>age; i++) { 

/* Could put the next two in a per segment table to save menory */ 

pages[i] .base = NULL; 

pages [ i] -bytes^used = 0; 

pages [i] .group = EMPTy_PAGE; 

if (VISUAI^J!EMDRY_ON) SXupdate.visual j)age { i ) ; 

} 

if (type HEAP^SEGMENT) { 

/* Add the pages to the front of the ettpty page list */ 

newjiole = (HOLEL-PTR) PAGE_INDEX_TO_PTR(f irstj>age) ; 
^ newJtiole->page_count = page_count; 

new_hole->next = enpty^pages; 

enptyjpages = newLhole; 
} else { 

/* HEY I fix this to allow more than 1 static segment */ 
last_static_ptr = segments [0] .last^segment jptr; 
f irst^staticjptr = last_3tatic_ptr; 

} 

) 

/* HEY! This belongs in oicAccessors.h. What does the wierd xjnimtned stuff in there do 
#define uninraedCx) (((int) (x) - 1) » 2) 

static 

int allocate^egment(int desiredJbytes, int type) 
{ 

int actualjbytes; 
BPTR first^egmentjptr; 
. int sysfree; 

if (totaXjsegments < MAX-SBGMEMTS) ( 

sysfree = uni2nned(S3aargestPreeSystemBlock() ) ; 

desiredJbytes = ( (desiredjbytes / BYTES_pE!L-PAGE) + 2) * BTTES.PER^PAGE; 
/* HEY! maybe take less. At least make the cushion a mem-config param */ 
if (sysfree < (desiredJytes + 10000)) { 

acttialjbytes s 0; 
} else { 

int old-flag; 

int segment jpage.count, first^egment.j>age; 

int segment = total_segments; 

actualjbytes = desiredjoytes - BYTES_PER.PA<3E; 
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olcJ_flag = oK_to_gc_iii^rowzone; 
oK_to_gc_irugrowzone = 0; 

first_segmentj)tr = SXbigjnalloc(desirecUtytes) ; 
oK_to_gc_in-grow2one = olci_flag; 

if {first_segnient_ptr) 
{ 

total_segnnen£s = total_segments + 1; 

segment j>age_count = actualjbytes / BYTES_PER_PAGE; 
first_segxiientj)tr = RDCin)_UPjro_PAGE(first_segmentj)tr) 

segments [segment ] .£irst_seginent_ptr = first_3egmentj>tr; 
segments [segment] .last_seginentj>tr = f irst.segment_ptr 

( segment j>age_count * BYTES_PER_PAGE) 
segments [segment] .segment^page.count = segment,^ge_count; 
segments [segment] .type = type; 

first_segment_page = PTIUT0LPAGE_INDEX(first_3egmentj)tr) ; 
SXinit_enptyj)ages{first.segmBntj>age, segment j>age.count, type); 

else 

actual_tytes = 0; 

} 

} else { 

actual J:ytes = 0; 

} 

ret\2xn ( actiaal Jbytes ) ; 

) 

static 

GCPTR allocate_€nptyj>ages ( int requirecLpage_co\int, int nujx_page_count, GPTR group) 

HOLELPTR next, prev, rest, best, bestj>rev; 
GCPTR base; 

int remainingjpage.count, best^€roaining_page_count, ne3ctj>age_index; 

next = enpty^pages; 
base = MOLL; 
prev = MULL; 
best = NOLL; 
bestj>rev = NOLL; 

/* Search for a best fit hole */ 

best^e m ainingjage^count = total_partitionj>ages ♦ 1; 
v*iile ( (best j:emaining_page_count > 0) && (next != NOIIi) ) { 
if (next->page_count >= requirecLpage.count) { 

renainingLpage.count = next->page_count - requiredLpage^count; 
if (reroaining_page_comt < best_renaining_page_count ) { 
best^€mainingj>age_count = remaixung j>age_count ; 
best = next; 
best jprev = prev; 

) 
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} 

prev = next; 

next = next->next; 



if (best MULL) { 

if {best_ranaining_page_count ==0) { 

rest = best->next; 
} else { 

rest = (HOLE_PTR) { (BPTR) best + (requireci_page.count * BYTES_PER.PAGE) ) ; 
rest->page_count = best_reinaining_page_count; 
rest->next = best->next; 

} 

if (bestj>rev NULL) { 

enptyjpages = rest; 
} else { 

bestj>rev->next = rest; 

} 

base = (GCPTR) best; 

^ } 

P 

O /* Initialize page table entries */ 

1^ if (base 1= NULL) { 

^ next_page_index = PTR^T0_PAGELINDEX( ( (BPTR) base)); 

for (i = 1; i <= requirecfLpage.count; i++) { 
Q pages [next jpage^index] .base = base; 

^ pages [next.page_index] .group = gro\^; 

pages (next j>age_indexl .tytes^used = 0; 
nextj)age_index = nextj)age_index + 1; 
/* if {(i % nujL_page_cotmt ) == 0) { 

if (VISUAL<JffiMORy_ON) SXupdate.visual^page (next_page_index - min_page_ 

) ♦/ 



PA 



) 



return (base) ; 



static 

void init.j>ages^or..group(6PTR groi9« int miz^pages) 
{ 

int i, nunubbjects, page^count, pagesj)er_6bject, byte_count; 

int niinjpage^count; 

GCPTR base; 

GCPTR prev; 

GCPTR current; 

GCPTR next; 

pages j)er.object = gro\5>->size / BYTES_PER.PAGE; 

tyte_count = MAX(pages_per_object,minj)ages) * BYTES_PER_PAC3E; 

nuituobjects = byte_count » group->index; 

page^count = (nuitL.objects * group->size) / BYTES_PER_PAGE; 

miAjpage.count = MAX (1, pages j)er.obj ect ) ; 
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base s allcx:ate.enpty_pages(page_count, xniiupage_co\int , group); 

/* HEY! do this soniewhere else? */ 
if (base NULL) { 

int actual Jytes = allocate_seginent (MAX(DEFAULT_HEAP_SBGMEirr_SlZE, 

page_count ♦ BYTES_PER^EAGE) , 
HEAP_SBGMEOT) ; 

if ( actual Jtytes < byte_count) { 

manoryjnutex = 0; /* allow SXgcO to thread switch */ 
SX&cO; 

roanory^^nutex = 1; 

} 

base = allocate_«tpty_pages(page_count, minjpage_count, groxip) ; 

if (base != NULL) { 
next = base; 

if (group->free ~ NULL) { 
Li. gro\5>->free = next; 

5 > 

^ current = group->f ree_last ; 

H _ if (current == NULL) { /* No gray, black, or green objects? ♦/ 

group->black = next; 
% } else { 

SBr_LINK_POINTER ( current ->next , next ) ; 

n ^ 

^ for (i = 0; i < nuxiupbjects; i++) { 

a prev s current; 

H current = next; 

PJ next s (GCPTR) ((BPTR) current + groifl>->size) ; 

H' current -?prev = prev; 

^ current->next = next; 

Q SETjCOLOR( current , GREEM) ; 

U } 

SET_LINK.P0INTE3l(current->next,NULL) ; 

groiv->free.last s current; 

group- >greea_count = group- >green^count nunL.objects; 
group->total_qb3ect.count = gron)->total^6bject.count + nunupbjects; 



) 



) 



static GPTR allocationGroup(void * metadata, SXint size, 

^ int ♦retunudataL-3i2e, int *rettim.real_size, void *retum 

int data^size, real^ize; 
int group^index; 
GFTR group; 



if (size >= 0) { 

switch ((int) metadata) { 
case (int) SXnppointers: 
case (int) SXpointers: 
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data^jsize = size; 

real^size = size + sizeof (GC_HEADER) ; breaks- 
default : 

if (METADATAP (metadata) ) { 

/♦ We count the metadata ptr in data^size for conpatability with insta 
dat^ize = (size * (({MetaData *) metadata) ->nBi^es) ) + sizeof(void * 
real_size = dat£L-size + sizeof (GCHEADER) ; 
} else { 

if (size != 1) { 

printf( •Error, you may not allocate %d instancesXn*, size); 

if (PPOXYP (metadata)) 
{ 

^ SXredirect ((SXobject) metadata, NULL, (SXobject ♦) ^metadata) ; 

data^size = ((SXclass^o) metadata) ->allocz; 
real_size = data^size + sizeof (GCJEADER) ; 

} 

break; 

H } 

P gromuindax = size_to_group_index(real_3ize) ; 

□ if (group.index > MA)eGROUP_INnEX) { 

h4. SXreport (generalError, SXstrToObj ( •Maximum object size exceeded*)); 

^ } else { 

^ group = &(groiqps[group.index]); 

p *retunudataujsize = data^ize; 

*ret\imj:eal^ize = real^ize; 

♦{(SXobject *) retumjnetadata) = (SXobject) metadata; 
return (groip) ; 
} else { 

SXreport (generalError, SXstiToQbj (-Negative object size-)); 

4" } 

□ } 

N 

SXint SXstacJcAllocatianSize(void ♦ metadata, SXint size) 
{ 

int datcL^ize, real_3ize; 

GPTR group = allocationGroup (metadata, size, &dataL-size, &real size, toietadata); 
return ( real^ize ) ; * 

} 

SXobject SXtotalFreeHeap^ceO 
{ 

int free = 0; 
int index; 
HOLELPTR next; 

next = enptyjpages; 
vAiile (next != NOLL) { 

free = free + (next->page_count * BYTES_PEHJPAGE) ; 

next = next->next; 

) 



9 



ry 
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for (index = MIN_GROUP_INDEX; index <= MAX-GRDUP.INDEX; index = index + 1) { 
int group_free = groups [ index] .greerucount * groups [ index] .size; 
free = free + groi5>_free; 

) 

return (inned( free) ) ; 

) 

SXobject SXlargestFreeHeaqpBlocJcO 
{ 

int largest s 0; 
int index; 
HOLELPTR next; 

next = eiqpty_pages; 
v*iile (next i= NULL) { 

largest = MAXdargest, next->page_count * ByTES_PER_PAGE) ; 

next = next->next; 

} 

index = MAX_GROOP_INDEX; 
^ while (index >= MIN_GROCJP_INDEX) { 
if (groi9>s[ index] .free != NULL) { 

largest = MAXdargest, groups [index] .size) ; 
index = 0; 
} else { 

index = index - 1; 

} 

} 

return (iiiined( largest) ) ; 

> 

/* HEY! fix this or delete it ♦/ 

SXbbject SXnMtiHighTideO 

{ 

int bytes = 0; 

retumCixnnedCbytes / 1024)); 

} 



SXint S3CallocatianTrueSize(void * metadata, acint size) 
{ 

int data^ize, real^size; 

GPTR groijp = allocationGroup (metadata, size, &data-^ize, &real_3ize, ^metadata); 
int xndLsize = ((metadata > SXJpointers) ? 4 : 0); 
ret\mx(group->size - sizeof (GC_HEADER) - iKijsize); 



SXint SXtrueSize(void *ptr) 
{ 
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GPTR groxjp = PTRjrQ_GROUP(ptr) ; 
GCPTR gcptr = interior_to_gcptr (ptr) ; 

int mcLsize = ( (GBr_;5rORAGEL.CLASS (gcptr) > SC.POINTERS) ? 4 : 0); 
return (groiq>->size - sizeof (GC_JffiADER) - mcLsize) ; 



void * SXinitializeObject (void * metadata, void * voidjsase, int total^size, int real 
{ 

LPTR base s voidJoase; 
int limit, i; 

GCPTR gcptr = (GCPTR) base; 

limit = ({DETECT_INVALID_REFS) ? 

((real^ize » 2) + ( (real.size % sizeof (LPTR) ) != 0)): 

(total_size » 2)); 
for (i =2; i < limit; i++) { 

*(base i) = 0; /* Clear old pointers! Memset as fast? ♦/ 

} 



switch ((int) metadata) { 
p case (int) SXnppo inters: 

p SET JSTORAGEJCIASS (gcptr, SC JJOPOINTERS ) ; 

n, _ base = base + 2; 

V ' break; 

%. case (int) SXjpointers: 

SETJSTORAG^CIASS (gqptr , SC^POIOTERS) ; 
.J! base = base 2; 

M break; 
f default: 

if (METADATAP (metadata)) { 



LPTR lastjptr = base ^ (total_size / 4) - 1; 
H SET^STORAGEjCLASS (gcptr, SCJffiTADMA) ; 

*last^tr = (int) metadata; 
□ base = base ^ 2; 

H > else ( 



/* optionally, print out the name of the class being allocated 
if (SX^PrintAllocationSwitch) { 
monory^jnatex = 0; 

SX)prinln((SXbbject)metadata, SXiNormal, debug); 
menDry.jmjtex s 1; 

) 



SEnLSTQRAGBJIXASS (gqptr, SC.INSTANCE) ; 
((GCMDPTR) gcptr) -xnetadata = metadata; 
base = base ^ 2; 

} 

break; 

} 

SBr.PR0Xy.INFO (base, 0); /♦ an object is not a proxy by default! */ 
return (base) ; 
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void * SXallocate ( void * metadata, SXint size) 
{ 

int i, data^size, real^size, limit; 
GCPTR new; 
LFTR base; 
GPTR groi5>; 

if (menoryjnutex) { 

printf ( "ERROR! alloc within GC ! \n" ) ; Debugger { ) ; 

} 

group = allocationGroup (metadata, size, &data-Size, &real_size, toietadata); 

if (TRACE.MEKJUSAGE && tracing jfteitu.xisage) { 

SXtrace.allocate (metadata, datausize, group->size} ; 

> 

meniO£y.jnutex = 1; 

_ if (group->free == NULL) { 

P ini t_pages_f or...sro\J5) ( gro\5> , 1 ) ; 

H - if (group->free == NULL) { 
«P out_of jnenoryCHeaqp", gro\^->size) ; 

'•f^ } 

\§ } 

0 new s group->free; 

l^i groi5>->free = GET_LINK^P0INTER(new->ne3ct) ; 

pj SETjCOLOR(new,marke<l.color) ; /* Allocate black! */ 

^ group- >greea-Count = group->green^count - 1; 

group- >blacKjcount = group->blacK_co;ant + 1; 



{ 

int page_index = PTH_TOLPAGE;_INDE3C(new) ; 

PPTR page = £^ges [page.index] ; 

int oldJytes.xised = page->bytes.used; 

page->bytes_used = page->tytes_used + group->size; 

if (VISaAI^JffiMORyjON) { 

saiiaybe_update.visual,j>age (page_index, olcUbytes.used,page->hytes_used) ; 

) 

) 

base = SXinitializeObject (metadata, (LPTR) new, group->size, real_size); 
/♦ optional stats */ 

total^requestecLallocation = total^equested^allocation + data^ize; 
total_allocaticn = total^allocation + groti>->size; 
total_requested^objects = total_requested_objects + 1; 
total_allocatioiuthis_cycle = total.allocatioiuthis_cycle + group->size; 

memory jnutex = 0; 
MAYBELAWAKE1L.GC ; 
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I 8 



#if 0 

/* this would be a more conplete way to printout what is being allocated, 
* but it doesn't work.., get a bus error. 
*/ 

if (SXfcrPrintAllocationSwitch) { 

SXiprint_object_inf o( (GCPTR)base, 0) ; 

} 

#endi£ 

return (base); 

} 

void * SXstaticAllocate(void * metadata, SXint size) 
{ 

int real_size, data.size; 

LPTR base; 

GPTR group; 

BPTR new_staticj)tr; 



/* Vte don't care about the group, just the GCHDR ccnpatible real_size */ 
groi5) = allocationGroxflp (metadata, size, &data^size, fcreal^ize, ^metadata); 
.y, .data^ize = B0UJrojUPT0_LC»«5^IGNM^ 

^ real^size = ROCJND.UPTO^waew.^ 

Cj /* Static object headers are only 1 word long instead of 2 ♦/ 

p /* HEf! add 8 byte alignment??? */ 

^ new_3taticjptr = first_staticj>tr - (real^size - sizeof (GCPTR) ) ; 



if {new_staticj>tr >= segments [0] .first.segmentj?tr) { 

int first_staticj>age_index = PTTUTO_PAGELINDEX(new_staticj>tr) ; 
int last_;5tatic.j>age_index = PTRjro_PAGE_INDEX(first_static^tr) ; 
int index; 

for (index = f irst_static_page_index; index < last_staticj>age_index; index++) 
pages [index] .group = STATIC.PAGE; 
if (VISOAUJffiMORy.ON) SX\jpdate_visualj>age { index) ; 

} 

f irst_3taticj>tr = newLj5taticj>tr; 
} else { 

if (SXstartingScriptX SXfalse) { 

/♦ HEf! allow more then 1 static segment? For now 
just d/namically allocate after booting */ 

return (SXallocate (metadata, size) ) ; 
} else ( 

out.ofjnemoryC Static Space', real^ize); 

) 

) 

if (TFACELJ1EHJJSAGE tracingjuen^usage) { 

SXtrace^staticAllocate (metadata, data^ize, real_size - sizeof (GCPTR) ) ; 

> 

base = (LPTR) first_static_ptr; 
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*base = (data_size « LINK_INFOJITS) ; 

base = (LPTR) (((BPTR) base) - sizeof (GCPTR) ) ; /* make base GCHDR conpatible */ 
base = SXinitializeObject (metadata, base, real_size, real_size); 
ret\2m(base) ; 



static 

void ♦ cppy_object(LPrR src, int storage_class, SXint current_size, SXint new.size, SX 
{ 

BPTR new; LPTR new_base; LPTR srcjDase; int i; 
int limit = current^ize » 2; 

switch (storage^class) { 
case SC_POIOTERS: 

new = SXallocate(S34>ointers,new_size) ; break; 
case SC_NOPOINTERS: 

. new = SXallocate(SXnppointers,new.size) ; break; 
case SCJiETAEATA: 
{ 

/* HEY! this needs to be fixed to \ise current_size instead of group_size * 
LPTR lastj)tr = src + (group.size / 4) - 1; 
void *ind = (void*)* las t_ptr; 
if (METAmTAPdid)) { 

new = SXed.locate{md,new_size) ; 

limit = limit - 1; 
} else ( 

print f ( -metadata bashed! \n»); 

DebuggerO; 

} 

) 

break; 

case SC.INSTANCE: 

new = SXallocate( ( (GCMDPTR) src) ->metadata,new.size) ; 
break; 

default: printf( •Error! Uknown storage class in reallocXn"); 

} 

newjbase = (LPTR) HEAP.OBJBCTjrOjGCPTR(new) ; 

/* Nb need for write barrier calls since these are initializing writes */ 
for (i =2; i < limit; i+>) { 

♦(newjase + i) = ♦(src + i); 

} 

return (new); 



void ♦ SXreallocate(void *ptr, SXint new_3ize) 
{ 

GCPTR current; 

GPTR group; 

int storage.class; 
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if (GC.DEB0G.J1SGS) { printfCR %d "^new^size); f flush (stdout) ; } 

if (INJffiAP{ptr)) { 

current = HEAP_OBJBCTjro_GCPTR(ptr) ; 
storage_class = GET_STORAGELCLASS ( current ) ; 
gro\9 = pages(PTRjrOLPAGELINIHX(c\irrent) J .groijp; 

/* HEY! subtract only 8 if we don't have metadata */ 

if (new_size <= (gro\jp->si2e - 12)) { 

/* HEY! If the object shrinks alot, we should copy to a 

smaller group size. Then free the current object? Dangerous 
if other pointers to it exist . Maybe just let the GC find it . 

Also Clear unused bits so we don't retain garbage! ! ! */ 
return (ptr) ; 
} else { 

^ retum(cpR/_object{ (LPTR) current, storage.class, gro\5>->size, new.size, g 

} else { 

if {IJL.STATIC(ptr) ) { 

LPTR base = ( (LPTR) ptr) - 1; 
int current_size = (*base « LINK.INFOJBITS) ; 
current = (GCPTR) (base - 1); 
storage_class = GET^STORAGELCLASS ( current ) ; 
if (storage^class == SCJffiTAEATA) { 

printf ("Cannot realloc static objects with metadata yet! ! !\n"); 
DebuggerO ; 

) 

retum(copy.object( (LPTR) current, storage_class, current.size + sizeof(GC 
} else { 

SXreport (generalError, SXstrToQbj (-Cannot reallocate")); 

} 



/* Move object to the free set */ 
void SXdeallocate(void ♦ ptr) 
{ 

GPTR groi5); 
GCPIR current; 
GCPTR prev; 
GCPTR next; 
int color; 



if (memoryjmitex) { 

printf ( "ERROR! dealloc within GC ! \n" ) ; Debugger ( ) ; 

if (ENABLE^DEALLOCATICN) { 
/♦ Write me! ♦/ 

) 



/* HEY! make this a macro for speed eventually??? 
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At least pass in the groijp ptr! */ 
GCPTR interior«to_gcptr(BPTR ptr) 
{ 

PPTR page = ^)ages(PTIL.TO_PAGEL-INDEX(ptr) ] ; 
GPTR group = page->group; 
GCPTR gcptr; 



if (group > E)CTERNAl4.PAGE) { 

if {groxjp->size >= BYTES_PER_PAGE) { 

gcptr = page->base; 
} else { 

/* This only works because first^partitionjptr is 

BYTES_PEE<_PAGE aligned */ 
gcptr = (GCPTR) ((int) ptr & (-1 « grox5)->index) ) ; 

} 

} else { 

printf CERRORl Foxaid IN_HEAP pointer with NULL gro\jp!\n"); 

) 



retxim (gcptr) ; 



□ 



^ static 

C| int call_if_instance_of (GCPTR ptr, SXobject class, void (* func) (SXobject) ) 
int count; 



n s 

ly 



SXobject header = ((SXobject) ptr) + 2; 

if ((GET_STORAGELCLASS(ptr) == SC.INSTANCE) && 

((SXobject) *header i= SXInvalidCJbject) && 
I PRQXyp (header) && 

SXisAKindOf (header, class)) { 

(*f\sic) (header) ; 

count = 1; 
} else { 

count = 0; 

} 

return (count); 



SXint SXforEachInstance( SXobject class, void (* func) (SXobject) ) 

SXint total_count = 0; 
int data-size, real^ize; 
GCFTR current; 
(3CPTR next; 

GPTR group = allocationGrotp (class, 1, &data«3ize, &real_size, &class) ; 
int index; 



if (ENABLELPEALTIMEL.GC) SXthreadCriticalUp{ ) ; 
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for {index = group->incaex; index <= MAX_GROUP_INDEX; index-n-) { 
group = & (groups [index] ) ; 

/* White objects */ 
current = groiJi)->v4ute; 
v^le (current != NULL) { 

total_count = total_count + call_if_instance_of (current, clctss, fmc) ; 

current = GET_LINK.POINTER ( current •>next ) ; 

} 

/* Gray objects + Black objects */ 
current = gro\ip->gray; 
if (current == NULL) { 

current = group->black; 

} 

vAiile ((current != NULL) && (current != group- > free ) ) { 

total.coiint = total.count + call_if_instance_of (current, class, func); 
current = GET_LINl^POINTER(current-Miext) ; 

} 

) 

if (ENABLE.JIEALTIMELGC) SXthreadCriticalDownO ; 
^return (total_count) ; 



void SXinitJieap(int f irst^segmentjbytes, int static_size, BPTR f irst_usable_ptr, BPTR 
{ 

enablejwritejbarrier = 0; 
oK_to_gc_iiugrowzone = 0; 
total^allocation = 0; 
total_requestedu-al location = 0; 
total_requestedu.objects = 0; 

first j)artitionj>tr - R0OND.D0WN_TO_PACS(first_usablej>tr) ; 
lastj)artitioa-Ptr = ROaND_UPjrOL.PAGE(last.usablej)tr) ; 

total jpartitidupages = ( (lastj)artitionuptr - firstj>artitioruptr) / BYTES_PE!UPA 

/* We malloc vectors here so that they are NOT part of the global 

data segment, and thus will not be scanned. don*t want 

the GC looking at itself! */ 
gro\jps = malloc (si2eof(GRDUP_lNF0) * (MAX.GHOUP_INDBC + 1)); 
pages = malloc (sizeof(PAGELINFO) * totaljpartitioojpages) ; 
segments s malloc (sizeof(SBGMEOT) * MAX.SBCaiE27rS) ; 
if ((pages == 0) II (groups ==0) II (segments ~ 0) ) { 
out.of jnemory ( -ScriptX- , f irst^segment Jbytes/1024 ) ; 

} 

init j>age_inf o ( ) ; 
€nptyj;>ages s NULL; 
total^segments s 0; 

if (allocate_segmmt(static_3ize, STATIC.SBGMEm') == 0) { 
out_of jenoiy ( • ScriptX' , stat ic_size/1024 ) ; 
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} 

last_3tatic_ptr = segments [0] .l2ist_seginentjtr ; 
first_3taticj>tr = last_static_jptr; 

if (allocate_3egn*ent(first.segitientJbyt as, HEAP^SBO^ENT) ==0) { 
out.of jnenory { "ScriptX" , f irst^segment Jytes/1024 ) ; 

} 

narkecl_color = GEUERATIONO; 
unmarkecL-COlor = GENERATIONl; 
init_groi5>_in£o { ) ; 
£irst_globalsj>tr2 = 0; 
last_globals^tr2 = 0; 
SXinit^lobalJboiinds ( ) ; 

if (ENABLE_BEALTIMELGC) SXinit.realtiine_gc ( ) ; 



P 

0 



Ml 
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Performance Analysis 

The maximum GC duration is determined by the single 
longest step in the collection process. Step 62 (flip) 
is atomic but is of extremely short, constant duration. 
Essentially only two segments of the present collection 
method are both atomic and of variable duration: making 
the list of all live threads (step 66) , and processing 
the live portion of a thread's state (step 68, with 
respect to a given thread) • Thus, the worst case GC 
duration for the present method is proportional to the 
maximum number of live threads, and to the maximum thread 
state size allowed by the system in use. 

Recall that the present garbage collector only 
restricts mutator execution at the beginning of each GC 
cycle until that mutator's corresponding thread state has 
been processed. Except for this part of the algorithm^ 
the frequency of the GC increments is completely 
controllable by the mutator threads or scheduler 28 which 
decides when it is best for the collector to run. Hence, 
the worst case for GC frequency is again proportional to 
the number of live threads. 

In practice, it has been found empirically that for 
typical, state-of-the-art multimedia systems, the maximum 
number of live threads and the maximum thread state size 
lead to worst-case bounds on GC frequency and duration 
that are acceptably within the requirements of typical 
multimedia application programs. Thus, the present 
invention has been found to solve a pressing problem in 
that, to the best of the author's knowledge, has not been 
satisfactorily addressed by any prior art systems in the 
field of garbage collection. 

Another significant advantage of the present 
invention is its suitability for implementation on stock 
hardware. In other words, each of processors 26a-n may 
be a standard computer CPU (such as one in the Motorola® 
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68000 series, a SPARC® CPU, or Power PC®), or a virtual 
software processor running on standard hardware; special 
purpose hardware is not required. Those of skill in the 
art may of course recognize various opportunities to 
increase performance further through the use of some 
special purpose hardware. Such enhancement, while by no 
means necessary, remains squarely within the scope of the 
present invention. 

It will be understood and appreciated by those of 
skill in the art that numerous variations on the 
preferred embodiments described herein are possible, 
while remaining within the spirit and scope of the 
present invention. The invention is limited only by the 
following claims. 



